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1.0 INTRODUCTION 
1.1 ABSTRACT 


THE RM8O FIELD FORMAT PROCESS FOR 16 BIT_ APPLICATIONS IS A 
RECONSTRUCTION PROCESS THAT RE=ESTABLISHES THE FACTORY FORMAT OF 
THE HDA, THE FORMATTER IS NOT INTENDED TO BE USED BY fa SERVICE 
AS _RM80 TROUBLE SHOOTING TOOL; ALSO, HDAS SHOULD NOT BE FORMATTED 

Stir tee EXISTING FORMAT HAS BEEN DAMAGED BY HARDWARE OR SOFTWARE 


Ayer OF THE TECHNOLOGY USED IN THE RM80 HDA, IT IS EXPECTED THAT 
THE NUMBER OF DE HE NUMBER OF BAD 
SECTORS THAT THE 16 BIT FILE SYSTEMS CAN ACCEPT. SKIP SECTORING 
T E HE APPARENT NUMBER OF BAD TORS: 


WAS ADDED T SECTORS: 
SKIPPED SECTORS ARE VISIBLE ONLY TO THE HOST OPERATING SYSTEM'S 
+ af DEVICE DRIVER, (THE FILE SYSTEM VISIBLE DEFECTS ARE LISTED IN 

THE DEC STD 144 MFG AND USER'S FILES, MDBSF AND UDBSF, 
RESPECTIVELY.) 


THE RM80_HDA MEDIA IS VERIFIED IN MANUFACTURING USING PARAMETERIC 

VERIFICATION EQUIPMENT. THE gerne! LIST GENERATED BY _ THE 
MANUFACTURING VERIFCATION PROCESS IS THE MASTER LIST OF DEFECTS ON 
THE HDA. EXPERIENCE WITH fy Bb DISK PRODUCTS INDICATES THAT 
FUNCTIONAL FORMAT/VERIFICATION PROGRAMS CANNOT PERFORM ADEQUATE 
MEDIA VERIFICATION AND WILL MISS A LARGE NUMBER OF THE wt hE 


WHICH 
ARE PRESENT ARE DETECTED BY A_ FUNCTIONAL FORMAT/VERI eiearion 
PROGRAM, MARKING THE ERRORS DISCOVERED BY SUCH A_ VERIFICATION 
PROGRAM WILL, IN ai CREATE AN WHICH HAS A HIGHER 
TE THAN IT HAD INITIALLY. CONSEQUENTLY, THE FIELD 
FORMATTER WILL WOT RELY ON FUNCTIONAL MEDIA VERIFICATION ALONE. 
THE FIELD FORMAT OPERATION WILL BE BASED ON T *S 16 BIT MODE 
BAD SECTOR FILES SUPPOR dts BY INCIDENTIAL MEDIA VERIFICATION. 
Age yor MEDIA VER if ICATION, ALTHOUGH LIMITED, WILL BE ATTEMPTED 
AS _A MEANS OF DETECTING DEFECTS WHICH HAVE DEVELOPED SINCE THE HDA 
LEFT MANUFACTURING. 


THE LOCATIONS OF SKIPPED SECTORS ARE LISTED IN A NEW BAD_ SECTOR 
Ss LE (SSF). THE LOCATIONS OF 
P Y SO_THA FIELD FORMAT PR ee CAN 

ECONSTRUCT (SEE SECTION 7) THE FACTORY FORMAT OF AN HDA. THE 


NON=SKIPPED SECTOR LOCATIONS ARE LISTED IN THE DEC STD 144 FILES. 
Pete cet tt ILES ARE CREATED/ INITIALIZED BY THE MANUFACTORING + ORMAT 
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2.0 OPERATING REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 
THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASS TO BE 
OO RAATTEMer’ IS REQUIRED TO LOAD AND EXECUTE THE RM8 ° UBSYSTER 


sy hide B PROCESSOR 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee me ee ee ee ee ee ed ed ed ed ed ed eed ed 
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3.0 
3.1 


3.2 


3.3 


3.4 


3.5 


4.0 
4.1 


4.2 





KW11-L_OR KW11-P CLOCK 
TOEnINGA LOADING DEVICE 


RH70 CONTROL LER 
11708 RMBO” DISK DRIVES 
PREREQUISITE DIAGNOSTIC PROGRAMS 
RM80 DISKLESS TEST, PART 1 AND 2 
OPERATING PROCEDURE 
LOADING 
THE PROGRAM MAY BE LOADED FROM ANY XXDP MEDIA. 
SWITCH OPTIONS 


THE PROGRAM DOES NOT SUPPORT ANY HARDWARE OR SOFTWARE SWITCH 
REGISTER OPTIONS. 


STARTING 
THE PROGRAM MUST BE STARTED AT LOCATION 200 . HOWEVER, BECAUSE 
LOCATION 200 GETS OVER WRITTEN BY THE RSX11 MONITOR, THE PROGRAM 
CANNOT BE RESTARTED AFTER ITS INITIAL STARTUP. 
HALT ING 


THE PROGRAM CAN BE HALTED BY PRESSING THE HALT SWITCH ON THE 
PROCESSOR FRONT PANEL. 


NOTE: ONCE THE PROGRAM IS _ HALTED, IT CAN ONLY BE RESTARTED BY 
PRESSING CONTINUE ON THE PROCESSOR FRONT PANEL OR RELOADING 
THE PROGRAM AND STARTING AT ADDRESS 200 . 
RESTARTING 


THE PROGRAM CAN ONLY BE RESTARTED BY RELOADING THE PROGRAM AND 
STARTING AT ADDRESS 200 . 


OPERATOR INTERFACE 
PROGRAM IDENTIFICATION 


THE PROGRAM TYPES ITS TITLE THE FIRS/ TIME IT IS STARTED AFTER 
BEING LOADED. 


CONSOLE DIALOGUE 


THE PROGRAM ENTERS A CONSOLE DIALOGUE SEQUENCE AFTER TYPING THE 
PROGRAM IDENTIFICATION. 


UPON STARTING THE PROGRAM, THE FOLLOWING PROMPT WILL ASK THE USER 
TO SPECIFY WHICH DRIVE IS TO BE FORMATTED. 


y 
Sos Ee eS ED Ae PE ae I a i A 
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"DRIVE #: ' 


ENTER THE DRIVE ADDRESS NUMBER (0-7) FOLLOWED BY CARRIAGE RETURN. 
IF THE SELECTED DRIVE IS NOT AVAILABLE, THE PROGRAM WILL TYPE AN 
ERROR MESSAGE AND RETURN TO THE THIS PROMPT. 


NOTE: ONLY ONE DRIVE CAN BE FORMATTED AT A TIME. THIS PROGRAM DOES 
NOT ALLOW MULTIPLE DRIVE FORMATTING. 


AFTER THE USER HAS SELECTED THE DRIVE TO BE FORMATTED, THE PROGRAM 
WILL ASK FOR AN OPTION TO BE SELECTED WITH THE FOLLOWING PROMPT. 


‘OPTIONS: ° 
THE COMMANDS AVAILABLE FOR THE OPTION PROMPT ARE AS FOLLOWS: 
IN ame ALL THE BAD SECTOR FILES (DEC STD 144 AND 


NOTE: THE yee COMMAND WILL DESTROY THE CONTENTS 
OF ALL THE BAD SECTOR FILES (DEC STD 144 AND 


FO FORMAT THE DISK. (ALL CYLINDERS 0 - 560.) 
<CR> SAME AS ‘FO’ COMMAND. 


FO:F coo T aI areata ONLY. (CYL 559., TRK 2 = CYL 


LI — LIST _THE PHYICAL_ ADDRESSES OF THE DEFECTS IN ALL THE 
BAD SECTOR FILES (DEC STD 144 FILES AND SSF). 


LI:L LIST THE LOGICAL ADDRESSES OF THE DEFECTS IN THE DEC 
sr actees) FILES. (SSF DOES NOT CONTAIN ANY LOGICAL 


VFL=N VERIFY SECTOR COUNT, WHERE ‘N* IS THE NUMBER OF TIMES 
TO RE-READ A TRACK DURING VERIFY OPERATION. THE 
DEFAULT IS 1 (RANGE 1=256.). AFTER COMPLETING THE 
FORMAT, "N* WILL RETURN TO ITS DEFAULT VALUE. 


ERL=N ERROR LIMIT COUNT, WHERE °N* IS THE NUMBER OF ERRORS 
ALLOWED BEFORE THE FORMAT IS ABORTED. THE DEFAULT IS 
256 (RANGE 1-256.). AFTER COMPLETING THE FORMAT, ‘N* 
WILL RETURN TO ITS DEFAULT VALUE. 


CSR=N RM BASE ADDRESS, WHERE 'N® IS_THE ADDRESS OF RMCS1 _IN 
OCTAL THE DEFAULT IS 176700. AFTER COMPLETING THE 
FORMAT, "N' WILL RETAIN ITS CHANGED VALUE. 


VEC=N RM VECTOR ADDRESS, WHERE '‘N* IS THE ADDRESS OF 
INTERRUPT Agee IN ocr THE DEFAULT IS 254. AFTER 
ee ING THE FORMAT, WILL RETAIN ITS CHANGED 


SEQ 0005 





CZRNJAO RM8O FORMATTER MACRO M1113 12-JAN-82 11:00 PAGE 7 


307 
308 


3 


IWA.AIAIANAAA 
abababahahababah abab 


RORRORD 
SWIM OC OONOAUMUE WMO 


NAG 
w 





THE USER MAY STRING ANY Se ge a OF COMMAND ttl Sy TOGETHER ae | 
USING A SLASH (/) 1°, SEPARAT ee HE COMMANDS. Hi F_ ONLY 
CARRIAGE RETURN IS TYPE FOR THE OPTION PROMPT The PROGRAM WILL 60 
INTO FORMAT (FO) MODE USING THE DEFAULT PARAMETERS 


EXAMPLE #1: 
OPTION: FO/CSR=176000/VEC=260/VFL=3/ERL=10<CR> 


THE ABOVE COMMAND INDICATES THe ENTIRE DISK WILL BE FORMATTED, 
ph 3 ADDRESS WILL BE SET 176000, THE VECTOR ADDRESS WILL BE 
pe: "et? D eee, tm VERIFY COUNT vite BE SET TO 3 AND ERROR LIMIT WILL 


THE FOLLOWING PROMPT WILL OCCUR IF THE OPTION SPECIFIED WAS AN 
INITIALIZE (IN) OR FORMAT (FO) COMMAND. 


"CONTINUE (L) N? ° 


IF THE RESPONSE TO THIS PROMPT IS A_‘N" FOLLOWED BY A _ CARRIAGE 
RETURN OR JUST A CARRIAGE RETURN, THE PR ae WILL ABORT THE 
CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT. IF THE RESPONSE i; 

*Y’ FOLLOWED BY A CARRIAGE RETURN, THE PROGRAM WILL CONTINUE T 
THE NEXT STEP IN THE CURRENT COMMAND OPTION. 


THE FOLLOWING PROMPT WILL OCCUR IF THE OPTION SPECIFIED WAS A 
FORMAT (FO) COMMAND. 

‘UPDATE MODE (L) N ? ° 
IF_ THE RESPONSE TO THIS PROMPT IS A '"N' FOLLOWED BY A CARRIAGE 
RETURN OR JUST A_ CARRIAGE RETURN, THE PROGRAM WILL ABORT THE 
CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT. IF THE RESPONSE IS 


A ‘Y* FOLLOWED BY A CARRIAGE RETURN, THE PROGRAM WILL ENTER THE 
MANUAL BAD SECTOR UPDATE ROUTINE. 


THE FOLLOWING TWO PROMPTS WILL OCCUR IF THE OPTION SPECIFIED WAS AN 
INITIALIZE (IN) OR FORMAT (FO) COMMAND. 
"ENTER DATE (DD-MMM-YY): ° 


THE DATE IS ENTERED BY TYPING A DAY IN DECIMAL, THE oust 3 LETTERS 
OF THE MONTH AND THE LAST TWO DECIMAL DIGITS OF THE Y 


AFTER ENTERING THE DATE, THE PROGRAM WILL PROMPT THE USER FOR THE 
HDA SERIAL NUMBER AS FOLLOWS: 


"HDA SERIAL NUMBER: ° 
re SERIAL NUMBER CAN BE ANY DECIMAL NUMBER UP TO 10. DIGITS IN 
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IF_ THE OPTION a A ea) (FO) COMMAND AND THE USER HAS ENTERED 
THE MANUAL UPDATE MODE, THE FOLLOWING PROMPT WILL BE TYPED TO ALLOW 
THE ENTERING OF SECTORS INTO THE BAD SECTOR FILES. 


"ENTER BAD SECTR ADRS: 
CYL,TRK,SEC = 


THE BAD SECTOR ENTRY IS ENTERED BY TYPING THE CYLINDER ADDRESS, 
TRACK ‘ena ° AND SECTOR ADDRESS IN DECIMAL, FOLLOWED BY A CARRIAGE 
RETURN. TERMNATE THE BAD SECTOR ENTRY LIST, TYPE A CARRIAGE 
RETURN IN RESPONSE TO THE ENTRY PROMPT. 


IF THE BAD SECTOR HAS A HEADER ERROR e, DRIVE TIMING ERROR (EXAMPLE 
#2), THE LETTER ‘H" (HEADER DEFECT) MUST FOLLOW THE DEFECT 
INDICATED. THIS WILL INDICATE TO THE PROGRAM, WHICH FILE (SSF OR 
DEC STD 144) THE DEFECT MUST BE STORED IN. 


EXAMPLE #1: 


ENTER BAD SECTR ADRS: 
CYL, TRK,SEC = 525,4,25<CR>  ;DEFECT CYL 524., TRK 4., SEC 


CYL,TRK,SEC = <CR> : TERMINATE INPUT 


f THIS DEFECT (EXAMPLE #1) IS NOT ALREADY IN THE SKIP SECTOR FILE 
(SSF), THE DEFECT WILL BE ENTERED AS A SKIP SECTOR ENTRY. (SEE 
SECTION 7.0 FOR MORE DETAILS) 


EXAMPLE #2: 


ENTER BAD SECTR ADRS: 

CYL. TRK,SEC = 525,.4,25H<CR> ;DEFECT CYL ee TRK 4., SEC 
"25. (HEADER ERROR) 

CYL, TRK,SEC = <CR> ; TERMINATE INPUT 


THIS SECTOR (EXAMPLE #2) er NOT BE hr 4 AS A_SKIPPED SECTOR, 
ER ED E PLACING E 


< THE U Y TH 
LETTER ‘H* AFTER THE DEF Et THE DEFECT WILL BE ENTERED_IN i 
pans Were B SECTicN OF THE DEC” STD 144 FILE. (SEE SECTION 7.0 F 


NOTE: THE LETTER LOCAT©D WITHIN THE BRACKETS () INDICATES THE TYPE 
OF pteepe REQUIKSD BY THE USER, D=DECIMAL, O=OCTAL AND 


WARNING MESSAGES 
WARNING MESSAGES WILL BE TYPED AT THE A a 3 TIME DURING THE 
PROGRAM TO NOTIFY THE USER THAT THE CONTENTS OF THE HDA WILL BE 
LOST. THE FOLLOWING UMESSAGE WILL BE TYPED BEFORE INITIALIZING OR 
FORMATTING THE HDA. 

‘we WARNING - DATA WILL BE LOST ON DRN: *#° 


TO FURTHER WARN THE USER, THE FOLLOWING MESSAGE WILL BE TYPED JUST 
BEFORE INITIALIZING THE HDA. 


SEQ 000 


"4 
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4.6 


4.7 


4.8 


5.0 


5.1 


5.2 


5.3 


*#® WARNING = BAD SECTOR FILES WILL BE OVERWRITTEN ON DRN: **° 
FOLLOWING EACH WARNING MESSAGE, THE USER IS ALLOWED THE OPPORTUNITY 
TO TERMINATE THE PROGRAM WITHOUT DESTROYING THE DATA ON HDA, BY 
RESPONSING TO A PROGRAM PROMPT MESSAGE. (SEE SECTION 4.2) 

PROGRESS REPORTS 
NO PROGRESS REPORTS ARE GIVEN DURING THE EXECUTION OF THE PROGRAM. 
PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
ERROR REPORTS 

THE FIRST LINE CONTAINS THE ERROR MESSAGE: A LINE OF TEXT WHICH 
hg: A BRIEF DESCRIPTION OF THE ERROR. THE ERKOR MESSAGE IS 
FOLLOWED BY ONE LINE CONTAINING DATA_HEADERS AND DATA Alf | 


TO THE ERROR. THE LAST LINE CONTAINS THE DECIMAL REQUIVALENT 
eeuneon AND RMDA REGISTERS, WHICH INDICATE WHERE THE ERROR 


THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS 
PROGRAM: 


HEADER/DATA_ ERROR DURING VERIFY 
RMCS1=144252 RMCS2=040300 RMER1=100000 RMER2=000000 RMDA=001014 
CYLINDER=559. TRACK=2. SECTOR=11. 
EXECUTION TIME 
ONE PASS OF THE PROGRAM TAKES ABOUT 20 MINUTES. 
ENVIRONMENTAL SUPPORT 
PROCESSOR COMPATIBILITY 
THE RM8O SUBSYSTEM FORMATTER IS_ EXECUTABLE ON PDP-11/70 
alana PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
DUAL PORT CONFIGURATIONS 
THE RM80 SUBSYSTEM FORMATTER DOES 7s SPECIFICALLY TEST DUAL PORT 
LOGIC IN THE RM80 ADAPTER BUT IS EXECUTABLE ON RM80 SUBSYSTEMS 
HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH IS SET 
TO THE APPROPRIATE PORT (A OR B). 


MEMORY PARITY HARDWARE 
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5.5 


5.6 


5.7 


6.0 
6.1 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE RM80 
SUBSYSTEM FORMATTER. 


MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM80 SUBSYSTEM 
FORMATTER. 


ACT11, APT11 COMPATIBILITY 


ee ROD RM80 ioe FORMATTER IS COMPATIBLE WITH ACT11 AND APT11 IN 


XXDP COMPATIBILITY 
sages SUSBYSTEM FORMATTER IS COMPATIBLE WITH XXDP IN DUMP MODE 


OPERATING SYSTEM COMPATIBILITY 


THE PROGRAM IS NOT COMPATIBLE WITH ANY OPERATING SYSTEM WHEN IT IS 
ASSEMBLED AS AN XXoP STANDALONE PROGRAM. 


FORMAT DESCRIPTION 
FORMAT PROCESS 


THE FORMATTER USES THE DEC STD 144 MFG AND USER FILES AND THE 
ie ED SECTOR FILE TO RECONSTRUCT sae AE 7) AN HDA'S 16 BIT 

FACTORY FORMAT AND ATTEMPTS TO FIND ADDITIONAL PEFECTS' BY 
PERFORMING A FUNCTIONAL MEDIA VERIFICATION. 


BEFORE FORMATTING BEGINS, THE 5 sale WILL READ AND VERIFY THE 
DEC STD 144 gah My: THE SSF FILE. THESE FILES CONTROL THE 
MARKING OF DEFECTS ON THE HDA. THE PROGRAM WILL READ AND 
VERIFY THE DerectT "PILES USING THE FOLLOWING PROCEDURE: 


1. EACH COPY OF THE SKIPPED SECTOR FILE (SSF) IS READ UNTIL A 
GOOD READ OCCURS AND THE HEADER AND DATA FIELDS ARE VALIDATED 
USING THE INTERNAL CHECKSUMS. 


2. STARTING WITH THE PRIMARY DEC STD 144 TRACK (CYL 558., TRK 
13.) AND CONTINUING TO THE SECONDARY DEC STD 144 TRACK (CYL 
559., TRK 1.), THE PROGRAM WILL READ EACH COPY OF THE 16 BIT 
MANUFACTURING. AND USER'S DEC STD 144 FILE UNTIL A GOOD READ 
OCCURS AND THE INTERNAL FORMAT OF EACH FILE IS VALIDATED. 


3. VERIFY THAT = HDA SERIAL NUMBERS IN THE DEC STD 144 
(MANUFACTURING AND USER) FILE AGREE WITH THE SERIAL NUMBER IN 
THE SSF. IF THE SERIAL NUMBER IN THE DEC STD 144 

(MANUFACTURING “4 a FILE DOES NOT COMPARE WITH THE SERIAL 


NUMBER IN THE SSF, THEN THE NEXT COPY OF THE FILE IN ERROR IS 
READ AND VALIDAT Eb. 


4. VERIFY THAT THE DISK ADDRESSES IN THE DEC STD 144 
(MANUFACTURING AND USER) FILE ARE VALID RM80 ADDRESSES. IF 


SEQ 0009 


K 1 
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504 
505 ADDRESS ERROR JIS FOUND, THE FILE IN ERROR WILL BE 
506 CONSIDERED CORRUPTED AND THE NEXT COPY OF THE FILE IN ERROR 
rite WILL BE READ AND VALIDATED. 
509 AFTER VERIFYING THE DEFECT FILES, THE PROGRAM WILL THEN FORMAT 
510 rap HEADER AND DATA) AND VERIFY (WRITE CHECK HEADER AND DATA) 
511 ALL 32 SECTORS OF EACH TRACK IN 16 BIT MODE USING THE FOLLOWING 32 
21g BIT DATA PATTERN TO FILL THE DATA FIELD OF EACH SECTOR. 
2i¢ 155555 133333 (OCTAL) OR DB6DB6DB (HEX) 
218 THE FOLLOWING SEQUENCE IS USED FOR FORMATTING: 
518 1. THE SKIPPED SECTOR ERROR INHIBIT BIT (SSEI), BIT 09 IN_ THE 
519 RMOF REGIST + SET BEFORE EACH WRITE OR READ OPERATION. 
520 SETTING THIS BIT, IN 16 BIT MODE, ALLOWS ACCESS TO ALL 32 
2s} SECTORS ON THE TRACK. 
523 USING A WRITE HEADER AND DATA COMMAND, EACH TRACK (32 
524 SECTORS) IS FORMATTED IN 16 BIT MODE USING THE ABOVE DATA 
352 PATTERN FOR THE DATA PORTION OF EACH SECTOR. 
527 2. USING A_ WRITE CHECK HEADER AND DATA_COMMAND, EACH TRACK IS 
528 READ 1 TIME. IF A DATA ERROR OCCURS AT A SECTOR WHICH IS NOT 
529 LISTED IN EITHER THE 16 BIT DEC 71° 144 FILE OR THE SSF, THE 
530 SECTOR IS READ 20 TIMES. IF A DATA ERROR OCCURS DURING THE 
531 REREAD SEQUENCE, THE SEQUENCE IS DISCONTINUED, AND THE 
532 ADDRESS OF THE FAILING, SECTOR IS SAVED IN THE APPROPRIATE 
533 DEFECT LIST. THE PROGRAM THEN CONTINUES CHECKING THE 
eee REMAINDER OF THE TRACK. 
536 AFTER A_TRACK HAS BEEN VERIFIED, THE TRACK IS REFORMATTED WITH THE 
537 BAD SECTOR MARKINGS BASED ON THE PREVIOUSLY DETECTED ERRORS AND ANY 
238 NEWLY DETECTED ERRORS. 
540 THE PRIMARY AND SECONDARY DEC STD_144 TRACKS (CYL 558, TRK 13 AND 
541 CYL 559 TRK 1, RESPECTIVELY), THE SSF TRACK (CYL 559,TRK 0), AND 
20g THE FE AREA WILL BE REFORMATTED. 
544 THE SSF REVISION NUMBER AND DATE WILL BE UPDATED ONLY IF THE SSF 
34? FILE HAS BEEN UPDATED. 
547 BOTH THE SSF AND THE DEC STD 144 FILES WILL BE SORTED SO THAT THE 
548 DEFECT ENTRIES ARE IN ASCENDING ORDER. THE 16 BIT DEC STD 144 
ret FILES AND THE SKIPPED SECTOR FILES WILL BE REWRITTEN. 
551 NOTE: ey | 18 BIT MODE DEFECT DEC STD 144 FILE RECORDS AND THE 18 
552 BIT MODE SSF WILL BE REPLACED BY NULL RECORDS DURING A 16 BIT 
227 FORMAT. 
555 DURING THE FORMAT, THE NUMBER OF NEWLY ee rece DEFECTS CAUSES 
556 the TOTAL NUMBER OF DEFECTS IN THE MDBSF AND THE UDBSF TO EXCEED 
557 THE PROGRAM DISCONTINUES THE FORMAT AND DISPLAYS AN 
558 RROR MESSAGE TO THIS EFFECT. THE PROGRAM THEN RESTARTS THE FORMAT 
559 PROCESS USING ONLY THE BAD SECTOR INFORMATION ALREADY IN THE MDBSF, 
560 UDBSF, AND THE SSF. THE FORMATTER, UNDER THESE CIRCUMSTANCES, WILL 
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56 WRITE _THE TRACK ab sin AND on THAT we WRITE OCCURED 
564 CORRECTLY, ONLY (OO MEDIA VERIFICATION WILL BE ATTEMPTED. THE 
565 OPERATOR WILL MAKE NTHE DETERMINATION IF THE HDA IS DEFECTIVE AND IF 
208 IT IS TO BE REPLACED. 

208 7.0 RECONSTRUCTION DESCRIPTION 

3f0 7.1 OLD DEFECTS 

572 THE TRACK IS RECONSTRUCTED ACCORDING TO see LISTED IN THE 16 
oF BIT MDBSF, THE 16 BIT UDBSF, AND THE 16 BIT 

575 1. THE SSF IS CHECKED FOR AN ENTRY ON THE CURRENT TRACK. IF _AN 
576 ENTRY EXISTS, THE SSE BIT IS SET IN THE HEADER OF THE SECTOR 
577 LISTED AND IN ALL FOLLOWING SECTORS, TO THE END OF THE 
of8 CURRENT TRACK. (SEE SECTION 9.2) 

580 2. THE DEC STD 144 FILE IS CHECKED FOR ANY ENTRIES ON THE 
2B) CURRENT TRACK. 

583 FOR DEC_ STD 144 ENTRIES WHICH OCCUR BEFORE A SKIPPED SECTOR 
584 OR ON A TRACK WHICH DOES N VE A_SK C H 
585 APPROPRIATE HEADER BIT IS RESET (MF OR UF, ACCORDING TO THE 
586 FILE CONTAINING THE DEFECT ADDRESS). HE ACTUAL 
587 ADDRESS (PHYSICAL ADDRESS) OF THE DEFECT IS LISTED IN THE DEC 
ry STD 144 FILE. (SEE SECTION 9.1 AND 9.3) 

590 FOR DEC STD 144 ENTRIES WHICH OCCUR AFTER A_ SKIPPED SECTOR, 
591 THE APPROPRIATE HEADER BIT IS RESET (MF OR UF, ACCORDING TO 
592 THE FILE ge ee THE DEFECT ADDRESS). ALSO, THE DEFECT IS 
593 LISTED IN THE DEC STD 144 FILE BY LOGICAL ADDRESS. (SEE 
og¢ SECTION 9.4 = 9.11) THE LOGICAL ADDRESS IS: 

299 LOGICAL ADDRESS = PHYSICAL(CYL,TRK,SEC-1) 

238 : 7.2 NEW DEFECTS 

600 NEWLY DETECTED ERRORS ON TRACKS WHICH ALREADY HAVE ERRORS, ARE 
p74 HANDLED AS FOLLOWS: 

603 1. IF THE ERROR OCCURS eo A SKIPPED SECTOR OR IF THERE IS NO 
604 SSF _ENTRY FOR THE CURRENT TRACK, THE PHYSICAL ADDRESS OF THE 
605 SECTOR IS_ ENTERED IN THE 16 BIT UDBSF AND THE UF BIT IN ie 
606 BEADER OF EACH ERRORED SECTOR IS RESET. (SEE SECTION 9.1 

608 

609 2. IF THE ERROR OCCURS AFTER A SKIPPED SECTOR, THE LOGICAL 
610 + et OF THE SECTOR IS ENTERED IN THE 16 BIT UDBSF AND THE 
611 BIT IN THE HEADER OF EACH ERRORED SECTOR IS RESET. (SEE 
ol¢ SECT ION 9.4 = 9.10) THE LOGICAL ADDRESS IS: 

ap LOGICAL ADDRESS = PHYSICAL(CYL,TRK,SEC-1) 

616 ADDITIONALLY, IF THE DEFECT SECTOR WAS A_ HEADER RELATED 
617 ERROR, THE SECTOR'S PHYSICAL ADDRESS IS ALSO ENTERED IN THE 
618 16 BIT UDBSF. (SEE SECTION 9.5) HOWEVER, IF THE HEADER ERROR 
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621 IS SECTOR 31, ONLY THE SECTOR'S LOGICAL ADDRESS IS ENTERED IN 
622 THE UDBSF. (SEE SECTION 9.10) 

624 FOR THE CASE OF A SECTOR WITH A HEADER FIELD DEFECT WHICH IS 
625 IMMEDIATELY FOLLOWED BY A SECTOR WITH A DATA FIELD DEFECT, 

626 THE LOGICAL ADDRESSES WILL BE ENTERED IN THE 16 BIT UDBSF FOR 
627 EACH SECTOR. (SEE SECTION 9.9) 

629 NEWLY DETECTED ERRORS ON TRACKS WHICH WERE PREVIOUSLY HAD NO 
630 ERRORS, ARE HANDLED AS FOLLOWS: 

632 1. SkIPPED SECTORING STARTS WITH THE FIRST (PRIMARY), NON-HEADER 
633 DEFE THE TRACK. THE PHYSICAL ADDRESS O; THIS DEFECT IS 
634 PEERED ONTO THE SSF. (SEE SECTION 9.2) 

636 NOTE: SKIPPED SECTORING CANNOT BEGIN WITH A SECTOR WHICH HAS 
637 A HEADER FIELD DEFECT. 

639 THE HEADER OF THE SKIPPED SECTOR AND THE HEADERS OF THE 
640 SECTORS ON THE SAME TRACK FOLLOWING THE SKIPPED SECTOR WILL 
64 HAVE SSE (BIT 13) SET. 

643 THE UF BIT WILL BE RESET IN THE HEADER OF ALL NON-SKIPPED 
644 | SECTORS EVEN THOUGH THE HEADER OF THE ERROR SECTOR MAY NOT BE 
649 READABLE. 

647 2. HEADER FIELD AND DATA FIELD DEFECTS PRECEDING A SKIPPED 
648 SECTOR WILL BE ENTERED IN THE 16 BIT MDBSF BY PHYSICAL 
649 ADDRESS. (SEE SECTION 9.3) 

651 3. IF THE ONLY DEFECT ON A TRACK IS SECTOR 31, THE DEFECT WILL 
652 BE MARKED AS A SKIPPED SECTOR, EVEN IF THE DEFECT AFFECTS THE 
633 HEADER, AND ITS ADDRESS ENTERED IN THE SSF. (SEE SECTION 
655 ; 

656 4. MULTIPLE DEFECTS WITHIN A SECTOR WILL BE CONSIDERED A. SINGLE 
657 DEFECT. IF BOTH THE HEADER AND THE DATA FIELD ARE AFFECTED 
o28 BY DEFECTS, THE HEADER DEFECT WILL TAKE REPORTING PRESS > WCE. 
660 5. NEW DEFECTS DETECTED ON PREVIOUSLY ERROR FREE TRACKS WITHIN 
66 | THE DEC STD 144 AREA, THE OR THE FE TRACKS ARE NOT 

662 ENTERED IN THE 16 BIT UDBSF. IF APPROP OPRIATE, A DEFECT ON ANY 
663 OF THESE TRACKS IS SKIPPED AND ITS ADDRESS _ 1s ENTERED IN THE 
664 16 BIT SSF. IF A DEFECT WITHIN THIS ADDRESSING RANGE CANNOT 

665 BE SKIPPED, THE DEFECT WILL BE TREATED AS ; Stee STD 144 ERROR 
666 (I.£., THE UF BIT IS RESET IN THE HEADER) EXCEPT THAT THE 
667 ADDRESS OF THE DEFECT IS NOT ENTERED IN THE 16 BIT UDBSF. 

669 

670 8.0 BAD SECTOR FILE LAYOUTS 

672 8.1 SKIPPED SECTOR FILE (SSF) 

674 THE SSF HAS STORAGE SPACE FOR THE PHYSICAL ADDRESSES OF 378 SKIPPED 
675 SECTORS. DEFECT ADDRESSES ARE STORED IN THE SSF IN ASCENDING 


676 SEQUENCE IN THE SAME FORMAT AS IN THE DEC STD 144 FILES, 1.€.. 
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678 

679 CYLINDER ADDRESS FOLLOWED BY SECTOR AND TRACK ADDRRESSES. THE SSF 

680 WILL BE FILLED WITH ONE'S BETWEEN THE LAST DEFECT ADDRESS AND THE 

681 T BOTH THE HE AND TH PORTION 

682 OF THE SSF ARE PROTECTED BY CHE - _THE IT SSF_IS REPEATED 

6835 5 TIMES ON THE FIRST TRACK OF THE FE AREA: CYLINDER 559, TRACK 0. 

eee THE SSF TRACK IS WRITTEN IN 16 BIT MODE. 

686 THE SERIAL ye FIELD IN BOTH THE SSF AND THE DEC STD 144 FILE IS 

pet IN THE SAME FORMAT. 

689 THE SSF FILE FOR 18 BIT MODE DEFECTS WILL BE REPEATED 5 TIMES 

690 FOLLOWING "a 16 BIT SSF FILE. SINCE SKIPPED SECTORING IS A 

691 MECHANISM WHICH IS INHIBITED WHEN THE RM80 IS BEING OPERATED IN 18 

692 BIT MODE, THE USE OF T SF FOR 1 IT MODE ADDRESSES IS ONLY T 

693 PAS THE 18 BIT MODE wee gs OF HDA DEFECTS WHICH DO NOT APPEAR 

694 IN THE DEC STD 144 FILE. E 18 BIT SSF COPIES WILL NEITHER BE 

44] USED NOR PRESERVED DURING ie BIT FIELD FORMATTING. 

697 THE SSF FILE LAYOUT FOR BOTH 16 BIT MODE AND 18 BIT MODE FILES ARE 

698 AS FOLLOWS: 

144 

701 tetetetoetetetetapopotaopototop¢atot 

702 ‘ WORD 0 ! HDA SERIAL NUMBER (LSB) ! SERIAL NUMBER IS A 31 

703 é totatuetataotototot—t—t—t—t+—+—-+—-+=+ BIT BINARY NUMBER 

7 WORD 1 ! HDA SERIAL NUMBER (MSB) § 

705 tepotetetetepetetepetetopotet¢oeted 

706 WORD 2 : YEAR ! MON ! DAY ! CREATION DATE 

707 totaetotetetaetatatet-: totatototatat (YEARS SINCE 1978) 

708 WORD 3 : YEAR ! MON DAY ! REVISI T 

709 tatatetetctatadetesrtntatatetated (YEARS SINCE 1978) 

710 WORD 4 ! REVISION NO 

711 PRO... 1h 

712 WORD 5 ! UNUSED ! FORMAT TYPE ! FORMAT TYPE: 1= 16 BIT 

713 $epetototatotpetotedupoetopotetpopody 0= 18 BIT 

714 WORD 6 =! UNUSED g 

715 tototoetatatotototototot=t=t—t~+—-+ UNUSED HEADER WORDS 

716 WORD 7 $ ' WILL BE ZERO FILLED 

717 tatetetetetetetetetetetetotetetet 

718 WORD 8 $ UNUSED ! 

719 $etatetetototatetetetetatetotut—o+ 

7 WORD 9 : NUMBER OF SSF ENTRIES $ 

721 trtototatatototetatatotatatatatas 

7. 4 WORD 10 CHECKSUM SSF HEADER CHECKSUM 

7. “ EEN sien OIE MS | 

724 = WORD 11 ! CYLINDER ADDRESS ! PHYSICAL CYL. ADRS 

725 bo taetatatatatetetatetetecetetat—4 

es) WORD 12 ! TRACK $ SECTOR ! PHYSICAL ADDRESSES 
tetpetetetopotpotetpotpet¢otetetopetedt 

728 WORD 13! . ' NULL ENTRIES WILL 

g | Sudahedadubadudasabatngnpotatsans BE ONE'S FILLED 

731 4 } / / 

7. ; / / 

7 ' i] 


patotutatotatetetototototetototo+ 





B 2 
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8.2 


WORD 766 ! ONE'S : 
+ totatatatatotatatatatatatotatao+ 
WORD 767 ! CHECKSUM ! DEFECT ADDRESS FIELD 


patatatetatatatetatatetetet=et—=¢—=4 CHECKSUM 


THE CHECKSUM IS CALCULATED USING a FOLLOWING ALGORITHM. THE 
CHECKSUM CALCULATION IS BASED ON 16 BIT QUANTITIES (WORDS) AND IS 
aero TED ONCE FOR THE SSF HEADER FIELD AND ONCE FOR THE SSF DATA 


SIZE = FIELD_SIZE_IN_16_B1T_WORDS 
CHECKSUM = 1 


EAT 
CHECKSUM = CHECKSUM + (16_BIT_WORD) 
CHECKSUM = CHECKSUM -ROTATED_CEFT_1_B1T. 
SIZE = SIZE = 1 

UNTIL SI7E .EQ. 

END_REPEAT 


THE ROTATE REFERED TO ABOVE IS THE FOLLOWING: 


pores wae eoe Se ceaes aes Smee eee ne eee eee + 


a ' 
' 


' 

' Vv 
+--+ toetetetoetetoetetetoetetetototototeat 
te! <mem 175! 109! 
+--+ a i in tai a ali 


*e’ REFERS TO EITHER oy *C’ BIT A PDP-11 OPERATION OR BIT 16 FOR 
E AvDITION; F THE LSB SITION 
ace CHECKSUM IS THE ‘CARRY OUT’ FROM THE 16 BIT ADDITION 


DEC STD 144 MANUFACTURING AND USER BAD SECTOR FILES 


THE DEC STD 144 FILE 1s CONTAINED ON TWO TRACKS ON THE RMBO. THE 
FIRST TRACK IS THE PRIMARY COPY OF THE FILE, THE SECOND TRACK IS 

THE SECONDARY COPY OF THE FILE. THE PRIMARY COPY OF THE DEC $1 
144 FILE IS WRITTEN ON THE LAST ADDRESSABLE TRACK BéeFORE THE FE 
CYLINDERS (CYL 558, TRK 13); THE SECONDARY COPY OF THE DEC STD 144 
FILE IS WRITTEN AT CYL 559, TR 


BOTH THE ee AND THE SECONDARY DEC STD 144 TRACKS ARE WRITTEN 
IN 16 BIT MODE. THE LAYOUT OF THE DEC STD 144 mesone IS GIVEN 
BELOW. THE LAYOUT IS THE SAME FOR ALL COPIES OF HE FILE. 


it dacliabpiudidebohsdntmeguniens 
WORD 0 ! HDA SERIAL NUMBER (LSB) ’ Senin NUMBER IS s 31 
batatetetotetetetet—etetqot=t<-4—-¢=¢ BIT BINARY NUMBER 
WORD 1 =! HDA SERIAL NUMBER (MSB) ; 


' i 


WORD 2 
WORD 3 


; ZERO ; 
totatataetatatatatatatatatatotot—+ 
; ZERO : 





SEQ 0014 
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batasetetetatatetutatotutututotes 


795 totetetetetotetotoetoeteteteteoteoteot 
796 WORD ¢ : CYLINDER ADDRESS 
797 batatatatatotetetetetetetetetetes 
798 WORD 5 ! TRACK 
799 
WORD 6 =! : 
801 tetetetetetetetoetetetetetetetotet 
2 WORD 7 ! : : 
803 eee canine eatin aia elaine 
805 / 
806 / 
807 g 
808 _geppacieemat wang eames 
WORD 254 ! 
810 batetatetotatepntatatetatatatntes 
WORD 255 ! 


WRITTEN IN _ SECT 
se crgrs 10,12 hrs 
11,13 15.0.029. 


0.00 00 00 00 Co Co 
od ot od ot I OI IO 
CON AUIS WI 


I, be TR 


THE 16 BIT MDBSF WILL BE WRITTEN IN SECTORS 0, 2, 4, 6, 8 OF THE 
PRIMARY AND a pnd DEC STD 144 TRACKS; BIT MDB 


1,3,5.7,9. THE 16 B 
30;°THE'18 BIT UDBSF IS WRITTEN IN SECTORS 


NULL ENTRIES WILL 
BE ONE'S FILLED 


“4 
—= 
m 
os 
— 
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821 9.0 ERROR TYPE DESCRIPTIONS 
825 1. 


™ 

rT 

o 
+--+ 


849 $--==> SSF 
850 te===> 144 PHYSICAL ("D' OR 'H’ ERROR) 


efeseemoococmawe pope former mena wesc ew nme meme ewe em woe $ 


861 


| Kneeennnnnnn---- 'SSE* SET --------------- >31! 


860 
862 
863 
864 
865 i< 
866 
867 
868 


70 SSF <eonnt t t—-==> 144 PHYSICAL ENTRY 
t-===> 144 LOGICAL ENTRY 


Coco 
3 
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907 


3338 


Sata ab ada od 
WN OCOnNOuUSWwN— 


WOoOoODo0000NO 


MMM 


‘i, 
0 | Keneeecececescce "SSE* SET encceececcnenne >31! 
cas tac oasis te ati ee ee os aes 
} eon t+ snammpeamneine totetatonss deicignmeiaementinininatnans + 
SSF <-<--+ | ¢eee=> 144 LOGICAL 
¢=--=> 144 LOGICAL 
7. 
0 | eneconcnaccece °SSE° SET cccccccccencose >31! 
perme enn eer wee eee popes on esses tetoetepooesees ss eeeeew eee sen eees + 
; 1S! HIME 
$oweoceoon------ raeennen totete}ocnnsmseusaneanenenamanes + 
SSF <ncnnt 1 $ geeee> 144 PHYSICAL 
| $eee=> 144 LOGICAL 
144 LOGICAL <----+ | 
8. 
0 | Cenneeencenceace °SSE° SET encececcceccene >31! 
| aa emma ees nen en ° 
oe es 
68F queens 1} geme=> 144 PHYSICAL 
| geeme> 144 LOGICAL 
144 LOGICAL <----+ 
9. 
0 a °§SE° SET onconcencecneee >31! 
fo were mcerenm ena pofoewreermeewmseofetafefpfrosse reese sees eeneceween estes + 
} 'S! ! THID! 
$eeweoeennnecon- totunccncenene tututotecencensccccsssensssconent 
SSF <o-nos tf 
I ¢eee=> 144 LOGICAL 
144 LOGICAL <----+ 
10. 

a °SSE° SET eoceccccncccee= >31! 
er a ee cecees eames s Sire mdm te lie aa er 
eiiisticenaiasaintiiain tatennwnnns snniianaibianias inenemadinmiinimmunabiank 

SSF <eoens 144 LOGICAL <----+ } 


*D’ OR ‘H’ ERROR <----+ 


ee | 






F 2 
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93 11. 
3 0 31 
9 5 teem nese ne ee (om ob om om oe ee oe ce ee ce a oe Ronen ews n esa emo nr ees enn ees weee fot 

14 


fm e were semen won ear mem ee Oem OT woeroces Seow mae ee mem awe fo > 


939 SSF (° $F" SET) <---=+ 
"D' OR ‘H® ERROR <----+ 


946 NOTE: *D* IS DATA FIELD DEFECT: ‘H' IS A HEADER FIELD DEFECT; 
*S' ISA SKIPPED SECTOR DEFECT 





SEQ 0018 


a  ——— 
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SYMBOL TABLE ee 

- ABS. 000000 is 

ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 19 WORDS _( 1 PAGES) 
DYNAM! Y: 8206 WORDS t 3st PAGES) 
ELAPSED TIME: 


00:00: 
,£300, 30JCZRNJA=C300, 10]BEG. DOC ,CZRNJA. DOC ,END.DOC 


SEQ 0019 


eee 


CZRNJA.TSK;1 MEMORY ALLOCATION MAP TKB PAGE 1 
T2-JAN-82 11:06 


TASK NAME : CZRNJA 
PARTIT'ON NAME : GEN 
IDENTI, ICATION : 01.00 
TA : [300,10] 


: 65. 
: 026172 026501 000310 00200. 
026502 


AF 
TA IMA SIZE 4464. WO 
TASK ADDRESS LIM ITS: 0360 00 116303 
R-W DISK BLK LIMITS: 000002 000073 000071 00057. 


*** ROOT SEGMENT: FMTROT 

R/W MEM LIMITS: 026000 116303 070304 28868. 
DISK BLK LIMITS: 000002 000072 000071 00057. 
MEMORY ALLOCATION SYNOPSIS: 

SECTION 


- BLK. 


TITLE IDENT 


FILE 


:(RW,1,LCL,REL.CON) 026502 020500 08512. 
026502 000 ° 
44 00292. FMTIO 01.00 FMT 


FMTROT.OBJ; 1 


10.0BJ;1 
027444 000152 00106. FMTDAT 01.00 EMTDAT. O30:1 
7616 001666 00950. FMTMSG 01.00 FMTMSG +081 
8340s 003040 01568. FMTSUB 01.00 FMTSUB.OBJ:1 
034544 901026 00534. FMTPRS 01.00 FMTPRS.OBJ:1 
035572 001104 00580. FMTR80 01.00 FMTR80.0BJ:1 
036676 001252 00682. FMTRSF 01.00 FMTR8F.OBJ:1 
040150 001524 00852. FMTRBY 01.00 FMTR8V.OBJ:1 
041674 001316 00718. FMTR8M 01.00 FMTR8M.0BJ:1 
043212 001270 00696. FMIRSL 01.00 FMTRBL.OBJ:1 
044502 000370 00248. FMTINT 01.00 FMTINT.OBJ:1 
IMPURE : (RW,D,LCL,REL,CON) 047202 000016 00014. 
SKSTR :(RW.D.LCL.REL.CON) 047220 000031 00025. 
047220 000031 00025. FMTPRS 01.00 FMTPRS.0BJ;1 
SKTAB :(RW,D,LCL,REL,CON) 047 : 000016 00014. 
047252 000016 00014. FMTPRS 01.00 FMTPRS.OBJ;1 
SSTATE: (RW,D,LCL,REL,CON) 047270 000166 00118. 
047270 000166 00118. FMTPRS 01.00 FMTPRS.OBJ:1 
SSRESL:(RW,I,LCL,REL,CON) 047456 000246 00166. 
SSSSBF :(RW.D.LCL.REL.CON) 047724 046356 19694. 
047724 046356 19694. FMTDAT 01.00 FMTDAT.OBJ:1 
GLOBAL SYMBOLS: 
BASYR 000116 IE£.BLK 177754  JIE.OFL 177677 10.DET 002000  =10.HMS 004000 
DPARS 035746-R IE.DAA 177770  IE.PRI 177760  10.DGN 004150  I0.LPC 004100 
DSKLUN 000003 IE.DNR 177775 _—=10.ATT 001400 =10.FER 004200 _—10.0FF 004020 
GENHDR 034400-R IE.EOF 177766 10.BLS 004010 I0.FEW 004210  10.RDH 004030 


10.RLB 001000 
I0.RNF 004060 
10.RNR 004070 
10.RPD 004170 


10.RTD 004120 
10.RVB 010400 
10.TDD 004140 
10.WCH 004110 


—_———_———_ -- ---- - 


SEQ 0020 
































10.WCkK 004050 

10.WOH 004040 

10.WPD 004160 

10.WTD 004130 

1Q.UMD 000004 

MSGER8 042041-R 
OPTKT2 047252-R 
OPTST2 047300-R 
SECSZ 027472-R 
SKPFRE 047744-R 
SPEFN 000003 

TRKSZ 027470-R 
UNTKT1 047252-R 
UNTST1 047270-R 
SALFLB 027450-R 
SBUF 050062-R 
SBUFRX 110262-R 
SBUFX 110262-R 
SCONPB 027524-R 
SCR 027616-R 
SCVTDA 031636-R 
SCYL 047772-R 
SDEVHD 003334 

$DSKIO 027020-R 
SDSKPB 027474-R 
SDSKRH 027006-R 
SDSKRT 027030-R 


CZRNJA.TSK;1 MEMORY a 
FMTROT lé-J 


AN~82 


SDSKWC 027000-R 
SDSKWH 02/014-R 
SDSTRB 042206-R 
SDVICE 027446-R 
SDVPRM 027560-R 
SDVUNT 047754-R 
SEROCT 031600-R 
SEROUT 031536-R 
SFEBSF 116102-R 
SFLCYL 047764-R 
SFLRGS 040036-R 
SFLSEC 047770-R 
SFLTRK 047766-R 
SFMTEP 026502-R 
SFMTEX 031464-R 
SFUNC 027476-R 
SHDRFG 047762-R 
SHOMSK 031710-R 
SINADD 047730-R 
SIOBUF 027510-R 
$IOST 027554-R 
SLBNH 027516-R 
$LBNL 027520-R 
SLOGDV 027576-R 
SMBSSZ 027572-R 
SMDBSF 111102-R 
SMESAG 031422-R 


ATION MAP_TKB PAGE 2 
11:06 


SMGPRE 037644-R 
SMOVE 031744-R 
SMSGRB 031366-R 
SMSGWR 031414-R 
$MSG1 027634-R 
$MSG10 030122-R 
$MSG11 030143-R 
$MSG12 030167-R 
$MSG13_030177-R 
$MSG15 030225-R 
$MSG16 030237-R 
$MSG17 030246-R 
$MSG18 036256-R 
$MSG19 030301-R 
SMSG2 027645-R 
$MSG20 030324-R 
$MSG21 030351-R 
$MSG22 030403-R 
$MSG23_ 030427-R 
$MSG24 030474-R 
SMSG25 030502-R 
$MSG26 030510-R 
$MSG27 030540-R 
SMSG28 030574-R 
$MSG29 030626-R 
$MSG30 030650-R 
$MSG31 030671-R 


SMSG32 030714-R 
SMSG4 027662-R 
$MSG40 030742-R 
$MSG41 031000-R 
$SMSG42 031026-R 
$MSG43 031056-R 
$MSG44 031103-R 
$MSG45 031141-R 
$MSG5 027707-R 
SMSG58 031166-R 
$MSG59 031233-R 
SMSG6 027737-R 
SMSG6A 027762-R 
SMSG6B 030004-R 
SMSG7 030025-R 
$MSG70 031274-R 
$MSG71 031307-R 
$MSG72 031322-R 
$MSG73_031344-R 
SMSG8 030043-R 
SMSG8A 030070-R 
SMSG9 030076-R 
SMULT 032046-R 
SMVPAT 031504-R 
SMXCYL 027564-R 
SMXLBN 047756-R 
SMXSEC 027570-R 





SMXTRK 027566-R 
SNONSI 002416 

SPARSE 034544-R 
SPAT 027462-R 
SPHYDV 027606-R 
SPRINT 027256-R 
SPRMPT 031754-R 
SPRNTO 027262-R 
SRDBSF 032322-R 
SRDSSF 033156-R 
SREAD 027342-R 
SRETRY 027466-R 
SREVNM 047732-R 
SRGBUF 050000-R 
SRM80 035754-R 
SRMB0F 037234-R 
SRM80I 044570-R 
SRMB0L 043574-R 
SRMB0M 042124-R 
SRMBOV 040366-R 
SRTCNT 047752-R 
SRBOSF 037164-R 
SRBOTF 037226-R 
$SCB 047726-R 
$SEC 047776-R 
SSMBSF 033774-R 
SSNAME 047746-R 





033654-R 
033726-R 
033740-R 
033764-R 
SSRSSF 034046-R 
SSRTMF 034166-R 
SSRTRK 033612-R 
SSRTSF 034132-R 
SSRTUF 034222-R 
SSRUDF 033752-R 
$SSF 113102-R 
SSSFDT 001365 

$SSFHD 000013 

SSSFLB 027454-R 
SSSFLN 000003 

$SSFSZ 027460-R 
SSTARS 027620-R 
SSTATS 027444-R 
S$STCSR 035230-R 
SSTERL 035506-R 
SSTFFE 035552-R 
SSTFOR 035556-R 
SSTIN 035564-R 
SSTLIS 035544-R 
SSTLOG 035540-R 
SSTUNT 034744-R 
SSTVEC 035344-R 


SSRALL 
SSRFES 
SSRMDF 
SSRSDF 


SSTVFL 035454-R 
SSWERL 047735-R 
SSWFFE 047741-R 
SSWFMT 047740-R 
SSWINT 047742-R 
SSWLOG 047737-R 
SSWLST 047736-R 
SSWMOD 047743-R 
$SYSIZ 003456 

$TRK 047774-R 
STSTDA 032160-R 
STSTOV 035062-R 
STSTMX 032216-R 
SUBSSZ 027574-R 
$UCB 047724-R 
SUDBSF 112102-R 
SUNTID 032266-R 
SUPDMX 032120-R 
SVERIF 047745-R 
SWLKER 027250-R 
SWIBSF 032730-R 
SWISSF 033464-R 
SXFRSZ 027512-R 
SYESNO 047734-R 


SEQ 0021 


WORK FIL 


WORK FILE 
SIZE OF tere” AoeL; bon WORDS (32. PAGES) 
SIZE OF WORK FILE: WORDS (13. PAGES) 


ELAPSED TIME:00:00:38 


TOTAL FILE ‘READ :o 46347. 
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MTROT = RM8O FORMATTER ROOT MODULE 
01.00/ 


COPYRIGHT (C) 1980 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
MAY BE COPIED ONLY WITH THE INCLUSION 

F_ THE E CE IS SOFTWARE, OR ANY OTHER 

COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 

TO ANY OTHER PERSON EXCEPT FOR a ON SUCH SYSTEM AND TO ONE 


WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
VERSION 01.00 


C. HESS 17=AUG~80 
M. LEAVITT 09-JAN-81 


-MCALL ALUNSS,,UCBDF$ 


UCBDF$ 





CALL MACRO TO DEFINE UCB OFFSETS 


56 
57 000072 
58 000074 


3 


RNSVEEVAVG RVRO 


° 
S 


o AAAouw 
NISSRISEALALTLSS 
22333 


SSSSSSSSSES8 


es 000156 


oo 
RRR 
~_aNN 


2 OO | | “OCO0ooocccdooo 
Arpt tN, ty DAD AD AD Ab AR ADA 
RRRRS 
N NN 


COOOCOCO0C0O $02 3 2 2 a 


Sooocooooeo 
on = OO] 30 
La) Whore —Uirorngd 
“N WwNN Ww 
So on io 
o Wo Ww 


one 
w 
PS 


012703 


0000006 
0000006 
0000006 
0000006 
0000006 
0000006 

0000006 
0000006 
000001G 


0000006 
000001 0000006 
000400 


0000006 
177777 


000400 
0000006 
177777 
000100 
0000006 
177777 


000000C 
0000006 
177777 


000000° 
0000006 


0000006 
0000006 


000000C 


001400 
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+ 
; **=$FMTEP-FORMATTER ENTRY POINT 


THIS ROUTINE WILL CALL THE PARSER, SETUP_THE DISK PARAMETERS, CALL THE 


; ACTUAL FORMATTING ROUTINE, 


SFMTEP: :CLRB 
CLRB 


2$: 


3$: 


4$: 


5$: 


6$: 


SSWERL 


#256., 
*SuD8s, 20 
ROS+ 


$ 

#64., 

fatter RO 
ROS+ 


g 
@ 
“ 
ba) 
z 
o 
@ Be Se Se Ge Se Ge Ge Ge Ge Ge Be Ge Be Ge Se Se Se Fe Fe Fe Se Ge Se eS 


3$ 

#256, *<$SSFLN>, RS 
#SSSF RO 

#-1, stRO) + 

R3 


#SFMTEP,SP 
BEYSIE ANOneh. 


SPARSE 
#DSKLUN, SDVICE Ri 
#SMSG4 ,RO 


FMTPRM : IF 
SMSGWR : EXIT WITH WARNING: STATUS 


t ATTACH THE DISK 


FM 


TPRM: MOV 
CALL 


#10.ATT!1Q.UMD,R3 
$DSKIO 


; L 
; BUFFER 


& CLEAN UP AFTER THE FORMAT OPERATION 


; RESET ERROR wert (DEFAULT IS 256.) 


RESET YES/NO R 
RESET OCK FILE Hit SWITCH 


; BAD BL 

; RESET athe LIST SwI 
; RESET FORMAT E 
; RESET F 
; RESET MDBSF 


; RESET THE MOBSF . SSF, & FEBSF MODIFY SWITCH 
; et Ean Peeeut ot Ag ; 


CLE EMPORARY 
; PRESET THE VERIFICATION COUNT 
; LOCATIONS IN THE MDBSF BUFFER TO CLEAR 
; BUFFER POINTER 


NABLE SWITCH 
ad FE ENABLE SWITCH 
UDBSF, SSF GENERATION SWITCH 


TORAGE FOR REVISION NUMBER 


SHED 
R OF SSF LOCATIONS 
; BUFFER ‘POINTER 


, ary AT LEAST” 24K? 

ELse CRASH THE SYSTEM!! 

PROMPT _AND PARSE COMMAND LINE 
ASSIGN LUN TO DISK 

3 ASSUME" * DEVICE NOT IN SYSTEM 

CC, DEVICE IN SYSTEM 


; ATTACH DISK FOR FORMATTING 


SEQ 0023 
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93 : PRESET THE DISK PARAMETERS, RETURN THE HEADS HOME AND 
% + CALL THE ACTUAL FORMAT ROUTINE. 

96 

97 000242 005067 0000006 CLR $SEC : RESET DISK PARAMETERS 
98 000246 005067 0000006 CLR $TRK 

99 000252 005067 0000006 CLR SCYL 

100 000256 CALL § $HOMSK : DO A RECALIBRATE 

101 000262 CALL § $RMB0 : CALL THE FORMATTER 
102 000266 CALL § $HOMSK : DO A RECAL 

105 000272 000167 (00006 JMP SFMTEX t EXIT GRACEFULLY 

105 000000' .END —- SFMTEP 


eee. _ — 


N 2 
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TABLE 
C$SORE= 002000 S$$YSZ= 001400 UC.ALG= 000200 U.CW3 000014 U2.NEC= 004000 
CSSRSH= 177564 $1.BEL= 000400 UC.ATT= 000010 U.CW4 600016 U2.PRV= 000010 
CS$TTY= 177564 $1.CTO= 000040 UC.KIL= 000004 U.DCB 000000 U2.RMT= 020000 
DSKLUN= *eeee% GX $1.CTS= 010000 UC.LGH= 000003 U.FCDE= 000040 U2.R04= 100000 
DV.CCL= 000002 $1.DEC= 002000 UC.NPR= 000100 U.FNUM= 000036 U2.SCS= 000004 
DV.COM= 02 $1.DPR= 001000 UC.PWF= 000020 U.FPS = 000044 U2.SLV= 000200 
DV.DIR= 00001 $1.DSI= 004000 UC.GUE= 000040 U.KCSR= 000032 U2.VT5= 000002 
-F11= 040000 $1.ESC= 000004 US.AB0= 000001 U.KCS6= 000034 U2.7CH= 0100 
aN ISP= 002000 $1. IBF= 100000 US.BSP= 000002 UsLUIC 177774 V$S$CTR= 000400 
C= 000400 $1.IBY= 000200 US.BSY= 000200 U.OWN 177776 V$$RSN= 000032 
T= 100000 $1.0BY= 000100 US.CRW= 000004 U.RED 000002 X$$DBT= 000000 
DV.MxXD= 000100 $1.RAL= 000010 -DSB= 000010 U.RPS = 000042 SCYL = *#eeee GX 
-OSP= 004000 $1.RNE= 000020 US.ECH= 000002 U.SCB 000020 SDSKIO= «ee2e" GX 
DV.PSE= 010000 $1.RST= 000001 -FOR= 000040 U.STS 000005 SDVICE= seeee% GX 
REC= $1.RUB= 000002 US.FRK= 000002 U.ST2 000007 SFEBSF= seaeee GX 
DV.SDI= 000020 $1.USI= 020000 S.KPF= 000001 U.TCHP 000042 SFMTEP O00000RG 
-SQD= $2.ACR= 000001 US.LAB= 00000 U.TCVP 000043 SFMTEX= seeea% GX 
DV.SWL= 001000 $2.BRQ= 000020 US.MDE= 900902 U.TFLK 000040 SHOMSK= *eeee% GX 
DV.TTY= 000004 $2.CR = 000010 US.MDM- 000020 U.TFRQ 000037 SMDBSF= *eeee% GX 
V.UMD= 000200 S$2.FDX= 100000 US.MNT= 000100 U.TLPP 000036 SMSGWR= *eaee% GX 
DSSIAG= 000000 $2.FLF= 040000 US.OFL= 000001 U.TMTI 000047 SMSG4 = eeeeee GX 
D$$L11= 000001 $2.HFF= 020000 US.OUT= 000001 U.TSTA 000026 SPARSE= *eeee% GX 
FMTPRM 000232R S2.HFL= 003400 US.PUB= 000004 U.TTAB 000034 SREVNM= *eeane GX 
HS$RTZ= 00007: S$2.HHT= 010000 US.PWF= 000010 U.TTYP 000046 SRM8O = seeeee GX 
IO.ATT= seee%% GX $2.IRQ= 000200 US.RED= 000002 u.TUX 000024 SSEC = teaeae GX 
Q.UMD= *teeee GX eo 000100 US.SHR= 000001 U.UIC 000044 SSSF = eeenee GX 
KSSCNT= 177546 $2.SRQ= 000040 US.SPU= 000002 U.UNIT 000006 SSSFLN= teeee% GX 
= 17754 S$2.VFL= 004000 US.UMD= 000010 U.VCB = 000034 SSTATS= s*eee% GX 
KSSIEN= 000115 $2.WRA= 000006 uS.VV = 000001 U2.AT.= 000020 SSWERL= sexe" GX 
KS$LDC= 000001 $2.WRB= 000002 US.WCK= 000010 U2.CRT= 002000 SSWFFE= sxenee GX 
KSSTPS= 000074 $3.B8CC= 020000 U.ACP = 000032 U2.DH1= 100000 SSWFMT= seeaee GX 
LD$TT = 000000 $3.DA0= 040000 U.ATT 000022 U2.DJ1= 040000 SSWINT= teeee2 GX 
L$SDRV= 000000 $3.PCU= 100000 U.BUF 000024 U2.DZ1= 000100 SSWLOG= **eee% GX 
MSSCRB= 000124 $3.RAL= 000010 U.CBF = 0000 $ U2.ESC= 001000 SSWLST= seaee% GX 
NS$LDV= 00000 $3.RCU= 000400 U.CLI 17777 U2.HFF= 010000 SSWMOD= seeee% GX 
PSSNIC= 177564 $3. TAB= 000100 U.CNT 000030 U2.HLD= 000040 SSYSIZ= seaee% GX 
RSSDER= 000000 $3.VER= 010000 U.CTL 000004 U2.LOG= 000400 STRK = eeenee GX 
R$$M11= 000001 S$3.WAL= 004000 U.CTYP 000050 U2.LWC= 000001 SUDBSF= *eeae" GX 
$$11M= 000000 -WES= 000040 U.Cw1 000010 U2.L3S= 000004 SVERIF= seeeee GX 
R$$11S= 000000 $3.88C= 000200 U.CW2 1 U2.L8S= 010000 SYESNO= *ee2e% GX 
S$$WRG= 000000 TSSMIN= 000000 


- ABS. 177776 O04 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 3572 WORDS ( 14 PAGES) 
spe — rpse Bones ( 30 PAGES) 
C300, 20]FMTROT C300, 30] FMTROT=C1,1JEXEMC/ML,C1,60JRSXMC/PA:1,C300,10JFMTROT 
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ITLE FMTIO = I/0 ROUTINES 
DENT /01.00/ 


COPYRIGHT (C) 1980 . 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS Cyt 4 UNDER A_LICENSE FOR USE ONLY ON A 
YST Y BE COPIED ONLY WITH THE INCLUSION 
THIS SOFTWARE, ANY OTHER 


THE E IS 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
HER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
Uo AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
VERSION 01.00 


C. HESS 14-AUG-80 
M. LEAVITT 15-0CT-80 


-MCALL DIRS 


SEQ 0026 


FMTIO = 1/0 ROUTINES MACRO M1113 12-JAN-82 11:01 PAGE 2 


3 3+ 
: **=$DSKIO-ISSUE Q10 TO DISK 
5 : #&=$DSKRH=ISSUE Q10 TO READ HEADER & DATA 
t **-$DSKRT=RETRY ai0 TO DISK 

3 t #&=$DSKWH=ISSUE Q10 TO WRITE HEADER & DATA 

38 + *&=$DSKWC=ISSUE Q10 TO WRITE CHECK HEADER & DATA 
49 + SUBROUTINES TO ISSUE 1/0 FUNCTIONS TO A DEVICE. 
4 + INPUTS: 
43 ; R3 = 1 = 1/ 40 0 FUNCTION CODE (!F ENTRY IS AT $DSKIO) 
45 : ENTRY yar $DSKRT ASSUMES THAT THE DPB IS ALREADY SETUP. 
47 : OUTPUTS: 
48 : THE Q10 DIRECTIVE IS ISSUED. IF THERE WERE NO ERRORS, THE 
49 : CAR ARRY BIT WILL BE CLEARED. IF THERE WAS A PARITY ERROR 

50 : CIE. VER) OR A BAD LOCK ERROR (le. BBE CARRY WILL BE SET. 

51 : IF WE ARE FORMATT DB BLOCK NUMBER VIOLATION 
52 ; E.BLK) MAY H, HEN or Gaaar tine THE LAST SECTOR. 
53 : FOR THIS CASE CARRY WILL BE RETURNED CLEAR, SAME APPLIES 
54 ; IF WE ARE RE-WRITING THE LAST TRACK OF D ‘DR’ DISKS. 
55 : ALSO SPECIFIC ERROR MESSAGES WILL BE PRINTED WHEN THE 

36 : FOLLOWING ERRORS ARE DETECTED: 
Sa : 1. IE.HWR 

59 : é- IE.DNR 
60 : . IE.DAA 
61 : 4. IE.FHE 
62 : 5. IE.PRI 
65 : 6. IE.OFL 
65 ; ANY OTHER ERROR CODE WIL! BE REPORTED AS "UNRECOVERABLE"’. 
67 : NOTE: MOST FUNCTIONS ARE ISSUED WITH THE DIAGNOSTIC SUB-FUNCTION 
68 ; BT (10. UMD) SET FOR THES E FUNCT ONS THE FUNCTION WILL 
69 ; WAYS RETURN SUCCESS (CARRY CLEAR) AND THE USER MUST TEST 
70 ; MUM OROPER BIT GN THE RECISTER BUFFER <SRGBUS) TO DETERMINE 
Al : IF THERE WAS ANY ERRORS. 

73 

7% .ENABL LSB 

75 000000 012703 000000C $DSKWC : :MOV #10.WCH!10.UMD,R3 WRITE CHECK HEADER & DATA 
ds 000004 000405 BR $DSKIO 3 GC TO THE COMMON O10 ROUTINE 

78 000006 012703 000000C SDSKRH: : MOV #10.RDH!1Q.UMD,R3 sREAD DISK HEADER(S) 

9 000012 000402 BR $DSKIO 7BR INTO COMMOM DISK ROUTINE 
81 000014 012703 000000 S$DSKWH: :MOV #10,u0K ;WoHt1a, UMD .R3 sWRITE DISK HEAMER(S) 

82 000020 010367 0000006 $DSKIO: :MOV STORE FUNCTION CODE IN DPB 

83 90004 010567 0000006 MOV RS $1 OBUF + STORE BUFFER ADDRESS IN DPB 

84 0000 SDSKRT: :DIRS asbsK KPB TISSUE THE Q10W$ 

85 000036 103010 BCC 1 IF CC OK 

86 000040 022767 6000006 0000006 CMP #IE.UPN, $DSW ;POOL SPACE AVAILABLE? 

87 000046 001770 REQ k 

88 000050 016767 0000006 0000006 MOV $DSW,$10ST *COPY DSW INTO STATUS BLOCK 

89 000056 000406 BR 2$ 


a 
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90 000060 000241 1$: CLC ZASSUME NO ERROR 
91 000062 105767 0000006 TSTB  $IOST ERR OR? 
3 000066 100016 BPL ‘IF PL NO 
93 000070 10506 CLRB = $10ST+1 ect PAR THE HIGH BYTE 
94 000074 012700 000204" 2$: MOV r :SET POINTER TO ERROR TABLE 
95 000100 021067 0000006 3$: CMP (ROS ,$10ST 3SCAN ERROR TABLE TO FIND ERROR TYPE 
96 000104 001403 BEQ F H 
97 000106 022020 CMP (RO) +, (RO)+ ‘STEP TO NEXT ENTRY 
98 600110 005710 TST (RO) SEND OF TABLE? 
99 000112 001372 BNE ; TIF NE NO 
00 000114 016000 000002 4$: MOV 2(RO) RO 'GET ADRS OF ERROR MESSAGE 
01 000120 001002 BNE 7$ SIF NE PRINT MESSAGE 
02 000122 000261 5$: SEC TELSE JUST SET CARRY AND EXIT 
05 000124 000207 6$: RETURN 
05 000126 020027 0000006 7$: CMP RO, #SMSG8 s""UNRECOVERABLE'’ MESSAGE? 
000132 001022 BNE as "IF NE 
000134 022767 000000C 0000006 CMP #1E .BLKG377,$10ST -YES, IS THIS A BLOCK # VIOLATION? 
000142 001767 BEQ 5$ F EQ YES 
000144 012700 0000006 MOV #SMSGBA,RO [GET BUFFER ADDRESS FOR ERROR CODE 
000150 005467 0000006 NEG $I0ST [MAKE ERROR CODE POSITIVE 
000154 116701 0000006 MOVB  $IOST,R1 [GET ERR 
000160 005002 CLR R 3 UPRESS LEADING o's 
000162 004767 0000006 CALL scan G SCONVERT TO DECIMA 
000166 112720 000056 MOVE (RO)+ * STUFF DECIMAL INDICATOR 
000172 105010 CLR «ROS ; TERMINATE STRING A 
000174 012700 0000006 MOV #SMSG8,RO [GET ADDRESS OF ‘UNRECOVERABLE'’ MESSAGE 
000200 000167 0000006 8$: JMP $MESAG SPRINT MESSAGE AND EXIT 


:* ' 

; ERROR CODE AND ERROR MESSAGE TABLE. A ZERO WORD 

3 IN THE MESSAGE FIELD INDICATES THAT THE ERROR WILL 
: BE HANDLED BY THE CALLING ROUTINE. 


R 
: 


9$: 


. IE.HWR 3 HANDLER NOT RESIDENT 
000210 000000C 0000006 “WORD IE. DNR€377, $MSG10 ; DEVICE NOT READY 
000214 000000C 000000 «WORD 16 DANG RIT SMSGS =; DEVICE ALREADY ATTACHED 
009220 000009C 000000 ~WORD IE.VER&377, 3 PARITY ERROR 
090226 CSGuvuC 000000 ~-WORD IE yr iit g : BAD BLOCK 
Guves0 000000C 0000006 ~WORD IE.FHE&377, SMSG 8 3 FATAL HARDWARE ERROR 
000234 000000C 0000006 -WORD IE.PRI&377, SMSG : PRIVLEGE ys GL STON 
000240 000000C 0000006 - WORD ge -OFLESI7. SMSG 2 DEVICE OFFLINE 
000244 000000 0000006 - WORD e SMSG8 = ;_ END OF TABL 


7+ 
; t*-$WLKER-SET WRITE LOCK ERROR 


THIS ROUTINE WILL SET THE wRITE LOCK ERROR MESSAGE AND EXIT 
t WITH A SEVERE ERROR STATUS SET. 

+ INPUTS: 

: NONE 


; OUTPUTS: 
; RO = WRITE LOCK ERROR MESSAGE ADDRESS 


ee ke ee ae ce ed ee ee ee me ee ee ee ee ee et ee ed ed ed ed ed ed ed od od od ed I = 2 = od 


yay at er et et et WWW 1 NMOPOMIPINONOPYDY 2 2 oO 


= | 
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ey 


LOCK MESSAGE ADDRESS 


000250 aE a4! 0000006 SWLKER: :MOV #SMSG9,RO 3s E 
E H SEVERE ERROR STATUS 


000254 000 BR 8$ 3 
-DSABL LSB 


+ 
; **=$PRINT=PRINT MESSAGE ON THE USERS TI: 
; **=$PRNTO=PRINT MESSAGE ON THE USERS TI: (ALTERNATE ENTRY) 


147 
148 
149 
150 
3 
138 
154 : 
155 ; 
156 ; 
157 : 
158 : INPUTS: 
159 : RO = MESSAGE ADDRESS 
160 : R1 = CARRIAGE CONTROL (FOR $PRNTO ENTRY ONLY) 
162 ; OUTPUTS: 
163 : MESSAGE SENT TO TI: 
iss si 
166 000256 012701 000040 SPRINT: :MOV #40,R1 :SET 1 LINE FEED CARRIAGE CONTROL 
167 000262 012705 0000006 $PRNTO: :MOV #SCONPB,RS GET OUTPUT PB ADDRESS 
168 000266 012765 0000006 0000006 MOV #10.WVB,Q. IOFN(R5) SET FUNCTION C 
169 000274 010065 0000006 MOV RO,Q.10PL(R5)  ;STORE miSSAGEA ADDRESS IN DPB 
170 000300 005065 000002G CLR Q.f0PL+2(R5) | :CLEAR MESSAGE LENGTH COUNTER IN DPB 
171 000304 010165 0000046 MOV R1,0.10PL+4(R5) :SET CARRIAGE CONTROL 
172 000310 105720 1$: TSTB —s- (RO) + END OF MESSAGE STRING? 
173 000312 001403 BEQ $ Q YE 
174 000314 005265 0000026 INC 0. 1OPL+2(R5) ?NO, CALCULATE MESSAGE LENGTH 
173 000320 000773 BR 1$ [GET NEXT CHARACTER 
177 000322 2s: DIRS = RS sPRINT THE MESSAGE 
178 000326 103004 BCC 3$ 
179 000330 022767 0000006 0000006 CMP #IE.UPN,$DSW ‘POOL SPACE AVAILABLE? 
180 000336 001771 BEQ 2$ s1F EQ NO, TRY AGAIN 
181 000340 000207 3$: RETURN 
183 
184 
185 i+ 
186 t **=$READ-READ A LINE FROM THE TERMINAL 
188 : THIS SUBROUTINE WILL READ A LINE FROM THE CONSOLE 
189 : DEVICE. 
190 : 
191 : INPUTS: 
198 ; NONE. 
19 : 
194 : OUTPUTS: 
195 : CARRY SET IF ANY ERROR AND 
196 : RO = ERROR MESSAGE ADDRESS 
198 : CARRY CLEAR IF READ OK 
00 ° 
$04 000342 012705 SREAD:: MOV #SCONPB,RS -GET INPUT DPB ADDRESS 
30 000346 012769 690000 3 0000006 MOV #10.RVB.Q. 1OFN(R5) ;LOAD FUNCTION CODE 
000354 012765 G 0000006 MOV #SBUFRX.Q. 1OPL(R5) ‘LOAD BUFFER ADDRESS 
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‘ 012765 000120 0000026 MOV £90. 0. J0PL92(R5) LOAD MAX NUMBER OF BYTES TO READ 
5 DIRS R sREAD_IN THE LINE 
6] 74 103414 BCS 2s ,IF CS DIRECTIVE ERROR 
7 1 ster 000000C 0000006 cee #1E.£0F0377,$10st wa OF FILE SEEN? 
09 os 9g TOste9 0000006 TST8 $IOST 21/0 ERROR? 
519 000412 002405 BLT sIF LT YES 
11 000414 105767 000001G TSTB $1OST+1 CHECK FOR A TERMINATED LINE 
sig 000420 001405 BEQ 3$ :1F EQ BUFFER OVERFLOWED 
213 000422 a 1$: CLC s INDICATE READ WAS OK 
sie 000424 000207 RETURN 
216 000426 012700 0000006 2s: MOV #$MSG29,RO COMMAND I/0 ERROR 
217 000432 000402 BR 
218 000434 012700 0000006 3$: MOV #$MSG30,RO :COMMAND TOO LONG 
219 000440 000261 4$: 3SET ERROR RETURN 
ss 000442 000207 RETURN 
222 000001 - END 
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SYMBOL TABLE 


1 = eeenee GX SMSGS = s*eeeee GX 

C IOST = seenee Gx SMSG7 = sease8 GX 

= tenant GX $DSKIO 000020RG SMESAG= tenn GX SMSGB = teeeee GX 

= keeeee GX SDSKPB= seanee GX SMS 

= teenee GX SDSKRH Sone SMS 

wes aeeene GX SDSKRT RG SMS 
= 


keeenk GX 
weaker GX 
kekake GX 
keeeee GX 
keekee GX 
kekere GX 
kaeeee GX 
weeeee GX 
keeeae GX 


oe 


Et $4 


VER= seeene GX CBDMG= ***: Gx ; 


RDH= seeeee GX ONPB= eeeese GX 


= eeeeee GX SMSGBA= seeaee GX 
= eeeeee GX SMSG9 = eeeeee GX 
= eeeere 6X SPRINT 000256RG 
= eeeeee GX SPRNTO 000262RG 
= 
= 


aeenee GX 


DT ss a et he 
«*« Oooococ°ocom 
wise © © © © & © 

_ 

DO 

x~rZz 


0 
eeenee GX S$DSKWC enters SMSG22 
aeacee GX SDSKWH 0014RG $MSG29 


i=] 
= 
rc 


SREAD 000342RG 
ateeee GX $DSW = teenee GX SMSG30= teeeee GX SWLKER 000250RG 
aeanee GX SFUNC = seeene GX 


22 


| 

| 

| 

keener GX $BU | 

- ABS. 000000 000 
000444 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 481 WORDS ( 2 PAGES) 

DYNAMIC oo : 7942 WORDS ( 30 PAGES) 

ELAPSED TIME: 00:00:10 


C300, 20]FMT10,(300, 303FMT10=C300, 10JFMTIO 


Rm SL, 
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TITLE FMTDAT = FORMAT DATA BASE 
IDENT /01.00/ 


COPYRIGHT (C) 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SYS BE COP 


, 

i ; 

5 $ 

4 : 

7 ; 

S : 

10 : SINGLE COMPUTER SYSTEM AND MAY IED ONLY WITH THE INCLUSION 
11 : OF TH OVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
1g : COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
1 : TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
14 : WHO AGREES TO THESE LICENSE TERMS. TITLE AND OWNERSHIP OF 
15 : THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

17 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
18 : NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
19 > EQUIPMENT CORPORATION. 
21 : DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
32 : ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
24 : 
35 : VERSION 01.00 
27 : c. HESS 17-AUG-80 
28 : M. LEAVITT  26-NOV-80 

30 : 
31 .MCALL UMDIO$ 

33 000000 UMDIO$ DEFSG ;CALL MACRO TO DEFINE DIAGNOSTIC FUNCTION 
3 [CODES GLOBALLY 

36 ; SPECIAL OPCODES 10 BE USED WITH THE FUNCTIONAL DR" DRIVER. NOTE 
37 : THAT THESE FUNCTIONS ARE DEFINED IN THE SPECIAL MANUFACTURING 

38 : TOR! DRIVER. 
40 004110 10.WCH == 10*400+110 ; WRITE CHECK HEADER & DATA (DIAGNOSTIC) 
41 004160 10.WPD == 10*400+160 + WRITE PHYSICAL BLOCKS (DIAGNOSTIC) 
42 004170 10.RPD == 10*400+170 t READ PHYSICAL BLOCKS (DIAGNOST 10) 
43 004200 10.FER == 10*400+200 > READ FE BLOCKS (DIAGNOSTIC) 

4b 004210 10.FEW == 10*400+210 + WRITE FE BLOCKS (DIAGNOSTIC) 


& 
w 
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000003 


377 


Jeg 
13171 
131656 


133333 


014 


000 


014 


000 


000000 
000000 


131656 


000000 
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ONSOLE 1/0 


3 LUN FOR DISK 1/0 


DEFAULT SECTOR FOR SKIP FL 
SKIP SECTOR FILE 

WORDS IN HEADER OF SKIP SECTOR F 
NUMBER OF WORDS IN DATA OF SKIP SECTOR FILE 


FORMAT STATUS, MCR LINE FLAG 

DISK NAME (ASCII) 

ADDRESS OF ALTERNATE DEC STD 144 TRACK 
ADDRESS OF START OF SKIP SECTOR FILE 
NUMBER OF COPIES OF SKIP SECTOR FILE 


TERN 
NUMBER OF RE-VERIFICATION ATTEMPTS 


DISK FORMAT 
RM8O TRACK SIZE (IN 


N BYTES 
RM8O SECTOR SIZE (INCLUDING HEADER) 


sEVENT FLAG FOR DISK 1/0 
3EVENT FLAG Fon CONSOLE 1/0 
; G FOR _ DIRECTIVE 


DISK 1/0 DIRECTIVE PARAMETER BLOCK (Q10W$ DIRECTIVE) 


DSKEFN = 1 
CONEFN = ¢ 
SPEFN za 
CONL = 
SKLUN == 
DEFSEC = Rs 
SSSFLN == 
SSSFHD == 11. 
SSSFDT == <256. *$SSFLN>=$SSFHD 
SSTATS::.BYTE 0-1 
SDVICE::.ASCII R 
SALFLB::. WORD go1317)2 
SSSFLB::. WORD 131656 
SSSFSZ::.WORD 5 
AT:: .WORD 155555,133333 
SRETRY::. WORD $9. 
TRKSZ:: .WORD 16.*32. 
SECSZ:: .WORD 516. 
SDSKPB::.BYTE 3,12. 
SFUNC:: .WORD 0 
-WORD DSKLUN 
eBYTE DSKEFN,O 
-WORD $IOST 
-WORD 0 
SIOBUF::.WORD 0 
SXFRSZ::.WORD 0 
-WORD 0 
SLBNH:: .WORD 0 
SLBNL:: .WORD 0 
-WORD $RGBUF 
SCONPB::.BYTE 3,12. 
eWORD O 
-WORD CONLUN 
-BYTE CONEFN,O 
-WORD $IOST 
-WORD O 
eWORD 0O 
-WORD O 
-WORD 0 
-WORD 0,0,0 
S$IOST:: .WORD 0,0 


: DRIVE PARAMETER TABLE 


SDVPRM: : .WORD 


3.131656 


MACRO DIC, DPB SIZ 
F “y TION CODE 


EVENT FLAG, PRIORITY 


STATUS BLOCK ADDRESS 
AST ADDRESS 


BUFFER ADD 


RESS 
TRANSFER SIZE IN BYTES 
NOT USED 
HIGH ORDER LOGICAL ao NUMBER 
LOW ORDER LOSICAL BLOCK 
REGISTER BUFFER ADDRESS 


sCONSOLE I/0 DIRECTIVE PARAMETER BLOCK (Q10OWS DIRECTIVE) 


MACRO DIC, DPB SIZ 
FUNCTION CODE 


CONSOLE L 
CONSOLE EVENT FLAG, PRIORITY ZERO 
K ADDRESS 


Se tea. 


1/0 STATUS BLOCK 


; MAXIMUM LBN 
; THE ORDER OF THIS TABLE MUST NOT CHANGE 


SEQ 0033 
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| 
104 
105 0001 9 000000 SMXCYL::.WORD 0 : # OF CYLINDERS PER DISK 
106 000122 000000 SMXTRK::.WORD 0 t # OF TRACKS PER CYLINDER 
107 000124 000000 SMXSEC::.WORD 0 : # OF SECTORS PER TR | 
108 000126 000012 $MBSS7::.WORD 10. : # OF BLOCKS IN MDBS 
109 000130 000024 $UBSSZ7::.WORD 20. : # OF BLOCKS IN UDBSF 
111 F 
1 F MACRO FORMAT: LBN, CYL, TRK, SEC 
114 : LBN = MAXIMUM NUMBER OF BLOCKS ON DEVICE (DOUBLE WORD) 
115 : CYL = MAXIMUM NUMBER OF CYLINDERS ON DEVICE 
116 : TRK = MAXIMUM NUMBER OF TRACKS ON DEVICE 
117 : SEC = MAXIMUM NUMBER OF SECTORS ON DEVICE 
119 i- 
120 “MACRO DVPRM LBN, CYL, TRK, SEC 
121 .WORD LBN 
122 D CYL 
123 “BYTE SEC 
124 “BYTE TRK 
129 .ENDM — DVPRM 
127 000132 SLOGDV::DVPRM <3,131656>, 559., 14., 31. : LOGICAL DEVICE GEOMETRY 
128 000142 SPHYDV::DVPRM <3.152700>, 561.. 14.. 32. + PHYSICAL DEVICE GEOMETRY 
130 000000 .PSECT $$S$SBF,D 
132 000000 000000 $UCB:: .WORD 0 : ADDRESS OF CURRENT UCB 
133 000002 $S(B:: .WORD 0 t ADDRESS OF CURRECT SCB 
134 000004 000000 SINADD::.WORD 0 t ADDRESS OF INTERRUPT VECTOR 
135 000006 000000 SREVNM: :. 0 + TEMP. STORAGE FOR SSF REVISION NUMBER ($SSF+10) 
136 000010 000 YESNO::.BYTE 0 + YES/NO CONTINUE RESPONSE 
137 000011 000 SSWERL::.BYTE 0 + ERROR LIMIT 
138 900012 SSWLST::.BYTE 0 + LIST BAD BLOCK FILE CONTENTS 
139 00001 000 $SWLOG::.BYTE 0 + LOGICAL LIST SWITCH 
140 000014 000 SSWEMT::.BYTE 0 t ENABLE FORMAT FLAG 
141 000015 000 SSWEFE::.BYTE 0 + ENABLE FORMAT FE CYLINDERS ONLY 
142 000016 000 SSWINT::.BYTE 0 : CREATE THE MDBSF, UDBSF, AND SSF 
143 000017 $s “BYTE 0 + MODIFY THE SSF, UDBSF, & FEBSF 
144 000020 000 SKPFRE::.BYTE 0 t SKIP SECTOR FLAG 
145 000021 000 SVERIF::. 0 : NUMBER OF TIMES TO VERIFY THE TRACK 
147 EVEN | 
148 000022 000000 000000 SSNAME::.WORD 0,0 : HDA SERIAL NUMBER 
149 000026 000000 SRTCNT::.WORD 0 : RETRY COUNT 
150 000030 000000 S$DVUNT::.WORD 0 : DISK UNIT NUMBER 
151 000032 000000 000000 SMXLBN::.WORD 0,0 + MAXIMUM BLOCK NUMBER 
152 000036 000000 SHDRFG::.WORD 0 ; HEADER DEFECT FLAG 
153 000040 000000 SFLCYL::.WORD 0 ; FAILING CYLINDER 4vDRESS 
154 000042 000000 SFLTRK::.WORD 0 : TRACK ‘ 
155 000044 000000 SFLSEC::.WORD 0 ;-~ Sein * 
156 000046 000000 $CYL::  .WORD 0 > CURRENT CYLIND=R 
157 000050 000000 $TRK:: :WORD 0 + CURRENT TRACK 
138 000052 000000 $SEC:: :WORD 0 > CURRENT SECTOR 
160 :BUFFERS AND DATA STORAGE AREA | 
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161 
166 4 SRGBUF::.BLKW 25. ; RMBO REGISTER RETURN BUFFER 
16 6 $BUF::  .BLKW ; #258. t BUFFER FOR DISK 1/0 
164 0403 SBUFRX: : /BLKW 0. + DIRECTIVE BUFFER 
169 040336" S$BUF X==$BUF RX ; BUFFER FOR DIRECTIVE USE 
167 yBAD SECTOR AND DEFECT STORAGE AREA 
169 041156 SMDBSF::.BLKW 256. : BUFFER FOR 16 BIT MDBSF 
170 042196 SUDBSF::.BLKW 256. t BUFFER FOR 16 BIT UDBSF 
171 043156 $SSF:: .BLKW  256.*<$SSFLN> : BUFFER FOR 16 BIT SKIP SECTOR FILE 
17 046156 SFEBSF::.BLKW 66. : BUFFER FOR FE CYLINDER DEFECTS 
174 000001 END 


—— 
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SYMBOL TABLE 
CONEFN= 00000 10.WCH= 004110 G SDVPRM 000114RG SMXL 000032RG 002 $SSFSZ 000014RG 
LUN= 00000 10.WCK= 004050 G SDVUNT 000030RG 002 SMXSEC 000124RG SSTATS Q00000RG 
DEFSEC= 00003 10.WDH= 004040 G SFEBSF 046156RG 002 SMXTRK 000122RG SSWERL 0000171RG 
KEFN= 000001 10.WPD= 004160 G SFLCYL 000040RG SPAT 000016RG SSWFFE 000015RG 
DSKLUN= 000003 G I0.WTD= 004130 G $FLSEC 000044RG 002 SPHYDV 000142RG SSWFMT 000014RG 
10.BLS= 004010 G 1Q.UMD= 000004 G SFLTRK 000042RG 002 SRETRY 000022RG 000016R 
10.DGN= 004150 G SECSZ 000026RG SFUNC 000032RG SREVNM 000006RG 002 $SWLOG 0000135RG 
10.FER= 004200 G SKPFRE Q00020RG 002 S$HDRFG 000036RG 002 S$RGBUF 000054RG 002 $SWLST 000012RG 
-FEW= 004210 G SPEFN = 000003 G SINADD 000004RG 002 SRTCNT 000026RG 002 S$SWMOD 000017RG 
-HMS= 004000 G TRKSZ_ 000024RG SIOBUF 000044RG $SCB 000002RG 002 $TRK 000050RG 
10.LPC= 004100 G SALFLB 000004RG $I0ST 000110RG $SEC 000052RG 002 S$UBSSZ 009130RG 
10.0FF= 004020 G UF G 002 $LBNH 000052RG SSNAME 000022RG 002 $UCB_ © QODO00RG 
10.RDH= 0040350 G SBUFRX 040336RG 002 SLBNL 000054RG SSSF 043156RG 002 SUDBSF 042156RG 
10.RNF= 004060 G SBUFX = 040336RG 002 $LOGDV 000132RG SSSFDT= 001365 G SVERIF 000021RG 
-RNR= 004070 G SCONPB 000060RG SMBSSZ 000126RG SSSFHD= 000013 G $XFRSZ 000046RG 
-RPD= 004170 G SCYL 000046RG 002 SMDBSF 041156RG 002 $SSFLB 00001 0RG SYESNO 000010RG 
10.RTD= 004120 G SDSKPB 000030RG SMXCYL 000120RG SSSFLN= 000003 G ---GBL= 000001 
10.TDD= 004140 G SDVICE 000002RG 
- ABS. 000000 000 
000152 001 


S$SSSBF 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 898 — ( 4 PAGES) 
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 
ELAPSED TIME: 00:00: 

[300,20]FMTDAT C300, 30JFMTDAT=C300, 10JFMTDAT 
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CONAUS WH 


Moo em ws 
SOOONOUSWN—O” 


La 
_ 


22 


TITLE FMTMSG = MESSAGE OUTPUT ROUTINES 
- IDENT /01.00/ 


COPYRIGHT (C) 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, M*SS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
ae COMPUTER SYSTEM AND MAY BE COPIED a WITH THE INCLUSION 
OF THE ABOVE y ig NOTICE. THIS SOFTWARE, OR ANY OTHER 
hy 4 THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO. ANY OTHER PERSON EXCEPT FOR USE_ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TC CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL _ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
VERSION 01.00 


f 15-AUG~80 


- HESS 
M. LEAVITT 23-0CT-80 


eNLIST CND,BEX 
-MCALL DIR$ 


SEQ 0037 
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35 
38 
39 000000 015 000 $CR:: .ASCIZ <CR> 
0 000002 052 052 038 SSTARS::.ASCIZ /seeeeeeeee/<LF> 
41 000016 015 106 115 $MSG1:: .ASCIZ <CR>/FMT -- / 
42 000027 123 131 116 $MSG2:: .ASCIZ /SYNTAX ERROR/ - 
3 000044 104 105 126 $MSG4:: .ASCIZ /DEVICE NOT IN M . 

44 000071 106 101 111 $MSG5:: .ASCIZ /FAILED TO ATTACH DEVICE/ 
45 000121 012 012 123 $MSG6:: .ASCIZ <LF><LF>/START FORMATTING 
46 000144 040 055 101 $MSG6A::.ASCIZ “ALL CYLINDERS-/<CR> 
47 000166 040 055 106 S$MSG6B::.ASCIZ / -FE CYLINDERS-/<CR> 
48 000207 104 122 111 $MSG7:: .ASCIZ /DRIVE OFFLINE/ 
49 000225 125 116 122 $MSG8:: .ASCII /UNRECOVERABLE ERROR -/ 
50 000252 040 040 040 SMSG8A::.ASCIZ / 
51 000260 104 © 105 126 $MSG9:: .ASCIZ /DEVICE WRITE. LOCKED/ 
52 000304 104 105 126 $MSG10::.ASCIZ /DEVICE NOT READY/ 
53 000325 012 123 124 $MSG11::.ASCIZ <LF>/START VERIFICATION/ 
54 000351 012 104 117 $MSG12::.ASCIZ <LF>/DONE !/ 
55 000361 104 105 126 $MSG15::.ASCIZ /DEVICE DRIVER MISSING/ 
56 000407 103 131 114 $MSG15::.ASCIZ /CYLINDER=/ 
57 000421 124 122 101 $MSG16::.ASCIZ RACK=/ 
58 000430 123 105 103 $MSG17::.ASCIZ /SECTOR=/ 
59 000440 115 104 102 $MSG18::.ASCIZ /MDBSF COPY CORRUPT/ 
60 000463 125 104 102 $MSG19::.ASCIZ /UDBSF COPY CORRUPT/ 
61 0005 106 101 124 $MSG20::.ASCIZ /FATAL HARDWARE ERROR/ 
62 00053. 106 101 111 $MSG21::.ASCIZ /FAILED TO READ MDBSF COPY/ 
63 000565 120 122 111 $MSG22::.ASCIZ /PRIVILEGE VIOLATION/ : 
64 00061 012 007 052 $MSG23::.ASCIZ <LF><07>/** WARNING = DATA WILL BE LOST ON / 
65 000656 072 040 052 $MSG24::.ASCIZ /: %%/<07> 

00 015 106 115 $MSG25::.ASCIZ <CR>/FMT>/ 

00067 125 116 101 $MSG26::.ASCIZ /UNABLE TO RECOVER MDBSF/ 
68 000722 126 105 103 $MSG27::.ASCIZ /VECTOR NOT MULTIPLE OF FOUR/ 
69 000756 103 123 122 $MSG28::.ASCIZ /CSR ADDRESS NOT IN SYSTEM/ 
70 001010 103 117 115 $MSG29::.ASCIZ @COMMAND I/0 ERROR@ 
71 001032 103 117 115 SG30::.ASCIZ /COMMAND TOO LONG/ 
72 001053 012 103 117 $MSG31::.ASCIZ <LF>/CONTINUE ‘(L) N ? / 
73 001076 122 105 123 $MSG32::.ASCIZ /RESP OF 
74 001124 111 116 103 $MSG40::.ASCIZ /INCORRECT MDBSF SERIAL NUMBER/ 
75 001162 125 116 101 $MSG41::.ASCIZ COVER 
76 001210 125 116 101 $MSG42::.ASCIZ /UNABLE COVER UDBSF/ 
77 001240 125 116 101 $MSG43::.ASCIZ /UNABLE TO READ UDBSF/ .. 
78 001265 111 116 103 $MSG44::.ASCIZ /INCORRECT UDBSF SERIAL NUMBER/ 
79 001323 105 122 122 $MSG45::.ASCIZ /ERROR LIMIT EXCEEDED/ 
80 001350 125 116 101 $MSGS58::.ASCIZ /UNABLE TO READ SKIP SECTOR FILE COPY/ 
81 001415 123 113 111 $MSG59::.ASCIZ /SKIP SECTOR FILE COPY IS CORRUPT/ 
a¢ 001456 015 104 122 $MSG70::.ASCIZ <CR>/DRIVE #: / 
83 001471 015 117 120 $MSG71::.ASCIZ <CR>/OPTIONS 
84 001504 104 122 111 $MSG72::.ASCIZ /DRIVE NOT PRESENT/ 
85 001526 104 122 111 $MSG73::.ASCIZ /DRIVE NOT AN RM80/ 
36 001550 125 120 104 S$MSGR8::.ASCIZ /UPDATE MODE (L) N ? / 
88 EVEN 


B 4 
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3 ; **=SMESAG-OUTPUT MESSAGE WITH CURRENT EXIT STATUS 
a *&=$MSGWR-OUTPUT MESSAGE WITH WARNING EXIT STATUS 


95 : INPUTS: : * 
%6 RO = ADDRESS OF "‘ASCIZ"* MESSAGE STRING 

98 : 

99 001576 112767 0000006 0000006 SMSGWR::MOVB § #EXSWAR,SSTATS ;SET WARNING EXIT STATUS 

100 001604 010046 $MESAG: :MOV RO, (SPS SSAVE MESSAGE ADDRESS 

101 001606 01270 0000006 MOV #SBUF ,RO 'GET PRINT BUFFER ADDRESS 

108 001612 012703 000016" MOV #SMSGi,R3 [GET PREFIX ADDRESS 

10 001616 904767 0000006 CALL V SSTORE PREFIX 

104 0016 912605 MOV (SP)+,R3 :GET BASIC MESSAGE ADDRESS 

105 001624 004767 0000006 CALL [STORE BASIC 

106 001630 112720 000012 MOVB #12, (RO)+ [ADD AN ADDITIONAL LINE FEED 

107 001634 105010 CLRB (ROS TERMINATE THE BUFFER __ 

108 001636 012700 0000006 MOV #SBUF ,RO [SET MESSAGE BUFFER ADDRESS 

109 001642 004767 0000006 CALL  $PRINT SPRINT THE MESSAGE 

111 001646 012767 000000C 0000006 S$FMTEX: :MOV #I0.DET!IQ.UMD,$FUNC | ;LOAD DETACH FUNCTION CODE 

11 001654 DIRS #SDSKPB sDETACH DISK (WHO CARES IF IT FAILS!!) 
113 001662 000167 0000006 JMP $FMTEP SRESTART 

115 


000001 ~END 
| 


—_—_—_——__ -—-_-- ---—- 
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SYMBOL TABLE 


CR. = 000015 SHSGRB 001550RG $SG20 000506RG SMSG4_ 0000446 SHSGEB  000166RG 
EXSWARS teense GX SMSGUR 001576RG $MSG21 000535RG $MSG40 0011246 SSG? 000207RG 
10.DET= teeees GX $MSG1 16RG SHSGg¢ 000365RG $SG41 001162RG $MSG70 00145626 
1Q.UMD= teeees GX $MSG10 4RG $HSG 611RG $MSG42 001210RG $MSG71 001471RG 
F’ = 000012 $MSG11 SRG SHSG24 000696RG $MSG43 001240RG $HSG72 001504RG 
= teeees GX $MSG1 1RG $MSG SG4RG SMSG4%4 001265RG SHSG73 001526RG 
SCR 000000RG $MSGI 61RG SHSG26 000672RG SMSG45 001323RG $MSGB_ 000225RG 
SUSKPB= tease GX $MSG1 407RG $HSG27 000722RG SMSG9, 000071RG SMSGBA 000252R 
SFMTEP= eeeees GX SHSG1G 000621RG $MSG2B 000756RG SHSGOB 001 530RG $MSG9__000260RG 
SFMTEX 001646RG $MSG1 430RG $HSG29 001010RG $MSG59 001415RG PRINT= #eeeee GX 
SFUNC = steeee GX $MSG18 000440RG $MSG30 001032RG $MSG6_  000121RG $STARS 000002RG 
SMESAG 001604RG $MSG19 000463RG $4SG31 _001053RG SMSG6A 06144RG SSTATS= #eeee® GX 
SHOVE = #eeee GX SMSG2 000027RG $MSG32 001076RG 
. ABS. 000000 


36 001 
ERRORS DE*-CTED: 0 


Lash ay | MEMORY USED: 618 WORDS ( 3 PAGES) 
Apes “+4 ee : 79% genes =f ( 30 PAGES) 


TIME: 
C300, SOIEMTASG, C 60, 30JFMTMSG=C300, 10JFMTMSG 
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1 TITLE FMTSUB = FORMAT SUBROUTINES 
é "IDENT /01.00/ 
4 : 
5 : COPYRIGHT (C) 1980 
é : DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
2 
10 t SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
11 : YRIGHT NOTICE. S SOF H 
12 : COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
13 : Y OTHER PERSON EXCEPT FOR SUC SYSTEM AND TO ON 
14 : WHO AGREES TO THESE LICENSE TERMS. TITLE AND OWNERSHIP OF 
13 : THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL 
17 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
18 : NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
19 : EQUIPMENT CORPORATION. 
21 : DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
22 : ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
24 : 
35 : VERSION 01.00 
27 : C. HESS 21-AUG-80 
28 : M. LEAVITT  14=JAN-81 
30 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
| 


— | 
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34 

35 : &*=$MVPAT=LOAD THE DATA BUFFER WITH THE DISK DATA PATTERN 
35 : INPUTS: 
36 3 NONE 
37 3 
38 : OUTPUTS: 
39 : "$BUF* LOADED WITH "SPAT' & "$PAT+2° 
i ‘ 
rk 000000 016701 0000006 SMVPAT : :MOV TRKSZ,R1 : LOAD THE DISTRIBUTION COUNTER 
44 000004 006201 ASR R1 + CONVERT BYTE COUNT TO WORD COUNT 
45 000006 006201 ASR R1 : CONVERT TO 2 WORD COUNT 
46 000010 012700 0000006 MOV #SBUF ,RO + BUFFER POINTER 
47 000014 016720 0000006 1$: MOV SPAT, (RO)+ + MOVE THE PATTERN 
48 000020 016720 0000026 MOV SPAT#2,(RO)+ 
49 000024 005301 DEC R1 : DECREMENT THE DISTRIBUTION COUNTER 
50 000026 100372 BPL 1$ : IF PL, MORE TO DO 
31 000030 000207 RETURN : 
53 3+ 
34 + OUTPUT ERROR MESSAGE 
56 : INPUTS: 
57 : R1 = VALUE TO CONVERT 
38 : R3 = ADDRESS OF BASIC MESSAGE 
60 : OUTPUTS: 
61 3 NONE. 
re - 
64 000032 012700 0000006 SEROUT : :MOV #SBUFRX,RO : GET OUTPUT BUFFER ADDDRESS 
65 000036 004767 000176 CALL  $MOVE ‘STORE BASIC MESSAGE 

000042 905002 CLR R2 SSUPRESS LEADING 0'S 
67 000044 004767 0000006 CALL  $CBDMG SCONVERT TO DECIMAL 
68 000050 112720 000056 ERROU1: MOVB #'.,(RO)+ [STUFF DECIMAL INDICATOR 
69 000054 112720 000040 MOVB = #"._. (RO) + SSTUFF BLANK IN MESSAGE 
70 000060 105010 CLRB = (ROS S TERMINATE STRING 
71 000062 005001 CLR R1 *SET NULL CARRIAGE CONTROL 
72 000064 012700 0000006 MOV #SBUFRX RO : GET OUTPUT BUFFER ADDRESS 
3 000070 000167 0000006 JMP SPRNTO SPRINT MESSAGE 
75 + 
76 : ##=$EROCT-CONVERT TO OCTAL AND PRINT 
77 INPUTS: 


VALUE TO CONVERT 


78 

79 R3 = MESSAGE ADDRESS 

80 OUTPUTS: 

3h MESSAGE PRINTED ON TI: 

83 

84 000074 012700 eooogne SEROCT: :MOV #SBUFRX,RO : 

85 000100 004767 000134 CALL SMOVE : 

86 000104 109606 INCB R2 : INCLUDE LEADING ZEROS 
87 000106 004 g 00006 CALL $CBOMG CONVERT TO OCTAL 

88 000112 112720 0040 MOVB #’ ,(RO)+ zSTUFF BLANK IN MESSAGE 
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89 000116 105010 CLRB = (ROD ; TERMINATE STRING 
000120 005001 CLR R1 SSET NULL CARRIAGE CONTROL 
91 000122 912700 0000006 MOV #SBUFRX,RO : 
3 000126 004767 0000006 CALL  $PRNTO [SEND MESSAGE 
oe ; 
%6 : *&=$CVTDA=CONVERT DISK ADDRESS TO LOGICAL BLOCK NUMBER 
98 t THIS SUBROUTINE CONVERTS A DISK ADDRESS TO A LOGICAL 
99 + BLOCK NUMBER. THE FORMULA USED IS: 
100 ; BLK = (SCYL * SMXTRK + $TRK) * SMXSEC + $SEC 
102 : INPUTS: 
103 : SCYL = CYLINDER NUMBER 
104 : $TRK = TRACK NUMBER 
105 : SSEC = SECTOR NUMBER 
107 : OUTPUTS: 
108 : SLBNH = HIGH ORDER BLOCK NUMBER 
109 ; SLBNL = LOW ORDER BLOCK NUMBER 
111 : 
112 000132 016701 0000006 SCVTDA: :MOV SCYL,R1 : GET CYLINDER NUMBER 
113 000136 016700 0000006 MOV SMXTRK,RO : GET TRACKS PER CYLINDER 
114 000142 004767 000174 CALL L : MULTIPLY 
115 000146 016700 0000006 MOV STRK,RO + GET TRACK NUMBER 
116 000152 060100 ADD R1,RO + ADD TO PARTIAL TOTAL 
117 000154 016701 0000006 MOV SMXSEC,R1 : GET SECTORS PER TRACK 
118 000160 004767 000156 : CALL L + MULTIPLY 
119 000164 066701 0000006 ADD $SEC,R1 t ADD IN SECTOR 
120 000170 005500 ADC RO : DON'T FORGET CARRY 
121 000172 010067 0000006 MOV RO, $LBNH t SAVE HIGH ORDER BLOCK NUMBER 
122 000176 010167 0000006 MOV R1.$LBNL : SAVE LOW ORDER BLOCK NUMBER 
123 000202 000207 RETURN : 
125 3 
139 ¢ **=-SHOMSK-ISSUE A HOME SEEK FUNCTION 
128 * THIS SUBROUTINE WILL ISSUE A HOME SEEK FUNCTION. 
130 : INPUTS: 
131 3 NONE. 
132 3 
133 + OUTPUTS: 
134 : HOME SEEK ISSUED TO DISK. 
136 . 
137 000204 005067 0000006 SHOMSK: :CLR $LBNH ZRESET BLOCK NUMBER 
138 000210 005067 0000006 CLR SLBNL : 
139 000214 012767 000010 0000006 MOV #10, $XFRSZ “DUMMY UP BYTE COUNT 
140 000222 012703 000000C MOV #10.HMS!10.UMD,R3 >SET HOME SEEK FUNCTION CODE 
141 000226 012705 0000006 MOV #SBUF RS TSETUP DEFAULT BUFFER ADDRESS 
14¢ 000232 167 0000006 JMP $DSK10 [DO THE FUNCTION AND EXIT 
143 000236 090207 1$: RETURN 
145 
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146 Lt 

147 t *&=$MOVE-MOVE ASCIZ STRING INTO BUFFER 

149 : THIS SUBROUTINE WILL MOVE AN ASCIZ STRING INTO A BUFFER. 
151 : INPUTS: 

138 : RO = ADDRESS OF BUFFER. 

133 : R3 = ADDRESS OF ASCIZ TEXT TO MOVE. 

155 : OUTPUTS: 

136 : RO = POINTS TO NEXT PLACE IN BUFFER. 

158 ‘ 

159 000240 112320 SMOVE:: MOVB = (R3)+, (RO)+ rSTORE TEXT CHARACTER 

160 000242 001376 BNE SMOVE SIF NE CONTINUE TO STORE 
161 000244 105740 TSTB =—_ = (RO) :POINT TO NEXT BUFFER POSITION 
162 000246 000207 RETURN : 

164 + 

165 : *%=$PRMPT=PROMPT USER AND SOLICIT A RESPONSE 

167 : THIS SUBROUTINE WILL PROMPT THE USER AND THEN WAIT FOR HIS 
168 + RESPONSE. 

169 ; 

170 : INPUTS: 

Hal : RO = ADDRESS OF PROMPT MESSAGE. 

173 : OUTPUTS: 

174 3 R3 = BYTE COUNT 

175 : BUFFER IS TERMINATED 

176 ; 7 = 1 IF BYTE COUNT IS ZERO 

177 ; 2 = 0 IF BYTE COUNT IS NON-ZERO 

179 5 

180 000250 012701 000044 SPRMPT : :MOV #°$,R1 3SET CARRIAGE CONTROL 

181 000254 004767 0000006 CALL § $PRNTO T THE U 

182 000260 005067 0000006 CLR SBUF RX ZCLEAR USER'S RESPONSE BUFFER 
183 000264 004767 0000006 CALL $READ [GET THE USERS RESPONSE 
184 000270 103422 acs MSG TIF CS ERROR 

185 000272 016703 0000026 MOV $10ST+2,R3 [GET BYTE COUNT 

186 000276 105063 000000G CLRB $BUFRX(R3) ;TERMINATE THE LINE 

187 000302 012700 0000006 MOV #SBUFRX,RO ET INPUT BUFFER ADDRESS 
188 000306 12108 000141 1$: CMPB —s« (RO) #141 ;LOWER CASE LETTER? 

189 000312 103405 BLO L 

190 000314 121087 000172 CMPB  —s-« (RO) #172 LOWER ASE LETTER? 

191 900520 101 2 BHI I NO 

198 000322 162 10 000040 BICB #40,(RO) Tesi CONVERT TO UPPER CASE 
19 000526 105720 2s: TSTB = (ROS+ ZEN ND OF INPUT BUFFER? 

194 0003 001 366 BNE 1$ NO 

195 000332 00570 TST R3 STEST FOR NULL LINE 

196 000334 000207 RETURN ; 

197 000336 000167 0000006 MSG:  JMP SMSGWR [EXIT WITH WARNING STATUS 
199 


i+ 
3 **-$MULT-INTEGER MULTIPLY ROUTINE 


3 INPUTS: 


henry 
St 
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203 : RO = MULTIPLIER 
S ; R1 = MULTIPLICAND 
: OUTPUTS: 
0 : RO = HIGH ORDER RESULT 
308 : R1 = LOW ORDER RESULT 
310 : ALL REGISTERS ARE PRESERVED 
$18 i 
at 000342 010046 SMULT:: MOV RO,-(SP) ; SAVE MULTIPLIER FOR ADDS 
15 000344 012746 000021 MOV Han =(SP) : SET LOOP COUNT 
216 000350 005000 CLR : CLEAR H HIGH PART 
217 000352 006000 1$ ROR RO + DOUBLE RIGHT SHIFT 
218 000354 906001 ROR R1 ; 
219 000356 10300 BCC 2$ + IF CC, DO NOT ADD 
20 000360 000002 ADD 2(SP) ,RO ADD MULTIPLIER TO RESULT 
21 000364 005316 2s: DEC (SP) > DECREMENT THE LOOP COUNT 
222 000366 003371 BGT 1$ > IF GT, 
223 000370 022626 CMP (SP)+, (SP)+ + PRUNE’ 
224 000372 000207 RETURN : 
$32 * 
327 t **=SSFCRC=COMPUTE CHECKSUM OVER SSF DATA 
229 + THIS ROUTINE WILL COMPUTE THE CHECKSUM OVER THE SPECIFIED 
see : DATA AREA OF AN SSF COPY. 
232 > INPUTS: 
233 : RO = STARTING ADDRESS 
334 : R1 = LENGTH OF DATA AREA 
236 : OUTPUTS: 
237 : RO = POINTS TO CHECKSUM WORD 
238 : Rl = CHECKSUM 
33 7 
241 000374 012746 000001 SSFCRC: MOV #1,-(SP) ; INITIALIZE CHECKSUM 
42 000400 062016 1$: ADD (RO)+, (SP) t ADD DATA WORD TO CHECKSUM 
243 000402 006116 ROL (SP) ; ROTATE "CHECK SUM 
244 000404 005301 DEC R1 t ALL DONE ? 
45 000406 001374 BNE 1$ : IF NE, NO 
46 900419 012601 MOV (SP)+,R1 : GET CHECKSUM RESULT 
38 00041 207 RETURN : 
49 3+ 
330 t **=SUPDMX-UPDATE MAXIMUM VALUES FOR DEVICE GEOMETRY 
238 + THIS ROUTINE WILL REPLACE THE CURRENT MAXIMUM VALUES FOR THE 
25 > RMBO’S CURRENT GEOMETRY WITH THE VALUES SUPPLIED IN THE 
334 : SPECIFIED TABLE. 
236 t INPUTS: 
37 : R3 = POINTER TO SPECIFIED TABLE 
$36 > OUTPUTS: 
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260 3 R3 = POINTS PAST END OF SPECIFIED TABLE 
2e¢ s SMXLBN, SMXLBN+2, SMXCYL, SMXTRK, AND SMXSEC ARE ALL UPDATED 
64 

65 000414 4 7 0000006 SUPDMX : :MOV (R3)+,$MXLBN sSET UP MAX LBN 

0004 12367 000002G MOV (R3)+, SMXLBN¢2 
000424 012367 000000G MOV (R3)+,$MXCYL SET UP MAX sri seen 

$08 0004 112367 000000G MOVE (R3)+,SMXSEC SSETUP MAX SECT 

9 0004 112367 0000006 MOVB (R3)+,SMXTRK ;SETUP MAX FRACK 
270 000440 166767 000000G 0000026 SUB SMXSEC,SMXLBN¢2 ;DO NOT FORMAT LAST TRACK 
271 pores 005667 000000G SBC SMXLBN ome 
si¢ 000452 000207 RETURN $ 

74 3+ 
ar 3; *-$TSTDA-TEST FOR A VALID DISK ADDRESS (BLOCK NUMBER) 
277 : THIS SUBROUTINE WILL CONVERT THE DISK ADDRESS TO A LBN AND 
sve 3; CHECK IF THE LOGICAL BLOCK NUMBER IS WITHIN RANGE. 
280 3; INPUTS: 
34h 3 SSEC, STRK, $CYL SET TO A VALUE. 
283 ; OUTPUTS 
284 3 cs IF LBN OUT OF RANGE 
285 3 cc IF LBN IN RANGE 
288 000454 004767 177452 STSTDA: : CALL SCVTDA sCONVERT PARAMETERS TO LBN 
289 000460 126767 0000006 0000006 CMPB SLBNH , SMXLBN ‘HIGH BLOCK # IN RANGE? 
spo 101007 BHI 2s ;1F HI NO 

1 000470 103404 BLO 1$ t1F LO YES 
292 000472 026767 000000G 0000026 CMP SLBNL , SMXLBN+2 LOW BLOCK # IN RANGE? 
293 000500 101002 BHI 2s HI NO 
294 000502 000241 1$: CLC SHOW LBN OK 
295 000504 000207 RETURN 8 
296 000506 000261 2$: SEC ;SHOW LBN BAD 
297 000510 000207 RETURN 3 
298 
$00 ‘ 
3) 3 **-S$TSTMX-TEST FOR END OF DISK AND UPDATE DISK PARAMETERS 
303 : THIS SUBROUTINE WILL UPDATE THE DISK PARAMETERS AND TEST 
$e : IF THE PARAMETERS WILL OVERFLOW THE DISK. 
306 3; INPUTS: 
307 : SCYL = CURRENT CYLINDER NUMBER 
308 3 STRK = CURRENT TRACK NUMBER 

10 3 SSEC = CURRENT SECTOR NUMBER 

11 3; OUTPUTS 

i ; S IF UPDATED PARAMETERS EXCEED DISK LIMITS 

1 s cc IF UPDATED PARAMETERS ARE STILL VALID. 

13 ; SSEC = 0 IF NORMAL MODE. 

16 : 
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17 000512 005067 0000006 STSTMX::CLR S$SEC ; START WITH SECTOR ZERO 

18 00051 05 67 0000006 INC $TRK : UPDATE TRACK NUMBE 

0005 26767 0000006 0000006 10$: CMP STRK, SMXTRK + IS TRACK NUMBER EXCEEDED? 
000530 103404 BLO 20$ : IF LO, 

331 000532 005067 0000006 CLR $TRK : RESET TRACK R 

332 000536 005267 0000006 INC SCYL + UPDATE CYLINDER NUMBER 

3 000542 026767 0000006 000000G 20$: CMP SCYL, SMXCYL + IS CYLINDER NUMBER EXCEEDED? 
34 000550 001402 BEQ 30$ : IF GQ Y 

335 000552 000241 LC : INDICATE VALID PARAMETERS 
336 000554 000207 RETURN : 

337 000556 000261 30S: t INDICATE PARAMETERS EXCEEDED 
338 000560 000207 RETURN : 
i , 

342  ®*=$UNTID=PUT MESSAGE AND DEVICE/UNIT INTO BUFFER 

344 : THIS SUBROUTINE WILL STORE THE MESSAGE AND THE DEVICE AND UNIT 
343 > NUMBER INTO THE BUFFER. 

347 : INPUTS: 
348 ; R3 = ADDRESS OF MESSAGE 

350 : OUTPUTS: 

331 ; RO = NEXT BUFFER POSITION 

353 ; 
354 000562 012700 0001446 SUNTID: :MOV #SBUF+100.,RO ;SET BUFFER ADDRESS 

355 000566 004767 177446 CALL  $MOVE [PUT MESSAGE INTO BUFFER 

356 000572 116720 0000006 MOVB $DVICE,(RO)+ STORE DEVICE NAME 

357 000576 116720 000001G MOVB  $DVICE+1,(RO)+ : 

358 000602 005001 CLR R1 *GET READY FOR THE BISB 

359 000604 156701 0000006 BISB § $DVUNT.R1 [GET UNIT NUMBE 

360 000610 005002 CLR R2 [SUPPRESS LEADING 0°S 

361 000612 000167 0000006 JMP $CBOMG [CONVERT UNIT NUMBER TO ASCII 
i 

365 t **=$RDBSF-READ MANUFACTURER'S & USER BAD SECTOR FILES 

367 + THIS SUBROUTINE WILL READ THE MDBSF AND THE UDBSF. 

368 : IF WE ARE RE-WRITING THE LAST TRACK, A EMPTY MDBSF AND UDBSF 
369 + IS RETURNED. 

3 : INPUTS: 

372 F $MXLBN = DISK ADDRESS OF START OF MDBSF. 

374 t OUTPUTS: 

375 : A GOOD SECTOR OF THE MDBSF AND THE UDBSF ARE READ INTO 
a7 : THEIR BUFFERS 

78 

379 000616 012703 0006 SRDBSF : :MOV #SLOGDV,R3 zy LOGICAL DEVICE ADDRESS POINDER 
380 000622 004767 177566 CALL § $UPDMX + UPDATE THE ADDRESS VALUES _ - 
381 000626 016767 0000006 0000006 MOV S$MXLBN,SLBNH =: SET DISK ADDRESS OF MDASF 
382 000634 016767 0000026 0000006 MOV SMXLBN+2,$LBNL : 
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; READ THE MDBSF 


1$: 


767 000002 0000006 2$: 
0000006 


3$: 


4$: 


5$: 


6$: 


; READ THE UDBSF 


10$: 


MOV 
ASR 
BR 


S 
CALL 


MOV 


SMBSSZ,R1 
i 
fae 
#SMDBSF RS 
RDBSF 


6$ 
#$MSG21,RO 
R1 
5$ 

INT 
#$MSG26 ,RO 
R1,~(SP) 

T 


SSRIMF 


SMXLBN , SLBNH 


SMXLBN+2, $LBNL 


$MBSSZ,$LBNL 


$LBNH 
$UBSSZ,R1 
R1 

8$ 
#2,$LBNL 
#SUDBSF ,RS 
RDBSF 

11$ 
#$MSG43,RO 
R1 

10$ 

SPRINT 
#$MS— '2,RO 
SMSGWR 
R1,~(SP) 
SPRINT 


SSRTUF 


GET NUMBER OF BLOCKS IN MDBSF 


; DIVIDE BY 2 


TRY NEXT USABLE MDBSF BLOCK 
GET ADDRESS OF MDBSF BUFFER 
READ THE MDBSF 


F CC OK 
CAN'T READ MDBSF 
ree 3% BLOCKS AVAILABLE? 


IF Y 
PRINT THE ERROR MESSAGE 
pee TO RECOVER THE MDBSF 


SAVE THE MDBSF COUNT 
PRINT THE MESSAGE 
RESTORE R1 
TRY AGAIN 

VERIFY THE MDBSF COPY 
MDBSF BUFFER POINTER 

BAD S/N MSG POINTER 

MDBSF CORRUPT MSG POINTER 
IF CS, MDBSF CORRUPT 
SORT THE MDBSF 


SET DISK ADDRESS OF UDBSF 
ADDRESS OF THE UDBSF 


GET NUMBER OF BLOCKS IN UDBSF 
DIVIDE BY 2 


TRY NEXT USABLE UDBSF BLOCK 
GET ADDRESS OF UDBSF BUFFER 
READ THE UDBSF 


CAN'T READ UDBSF 

MORE UDBSF BLOCKS AVAILABLE? 
IF NE, YES 

PRINT THE ERROR MESSAGE 
pee TO RECOVER THE UDBSF 


XI 

SAVE THE MDBSF COUNT 
PRINT THE MESSAGE 
RESTORE R1 


TRY 
VERIFY THE UDBSF COPY 
UDBSF BUFFER POINTER 
BAD S/N MSG 


N POINTER 
UDBSF CORRUPT MSG POINTER 
IF CS, UDBSF CORRUPT 

SORT THE UDBSF 


' 
| 
! 
| 
| 
ee 
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44) 001114 000207 RETURN 

108 + 

46 3 **-RDBSF-READ THE SPECIFIED BSF FILE 

44 ; READ THE BSF (EITHER MDBSE jor UDBSF) SPECIFIED IN R5 

tte ; (ROUTINE USED BY ‘SRDBSF* 

449 : INPUTS: 

450 3 RS = BUFFER ADDRESS 

423 é SLBNL,$LBNH LOADED WITH THE TRANSFER LBN 

453 : OUTPUTS: 

$32 é cc IF TRANSFER WAS NOT SUCESSFUL 

456 , 

457 001116 012767 001000 000000G RDBSF: MOV #512.,$XFRSZ _ ; SET SIZE OF ONE SECTOR (BYTES) 

458 001124 012703 000000C MOV #I0.RLB!1Q.X.R3 ; SET READ FUNCTION (WITHOUT RETRIES) 

459 001130 004767 000000G CALL $DSKIO : READ 1 BLOCK FROM THE BSF 

460 001134 000207 RETURN 3 

461 

462 i+ 

463 : xe-VYBSF-VERIFY THE BSF COPY 

466 : (ROUTINE USED BY "S$RDBSF') 

rr] ; VERIFY THE BSF COPY SPECIFIED BY THE INPUT PARAMETERS 

468 : CALL: JSR R5,VYBSF 

469 rs BSF POIN ER 

470 2 POINTER TO *XXBSF SERIAL NUMBER poses" T MATCH’ MSG 

ria} 5 POINTER TO ‘XXBSF COPY CORRUPT’ MSG 

473 : OUTPUTS: 

47% : RO = SPECIFIC ERROR MESSAGE POINTER 

475 ; cc 0 IF BSF NOT CORRUPT 

476 : CS 1 IF BSF CORRUPT 

rie a 

479 001136 012503 VYBSF: MOV (R5)+,R3 ; GET THE BUFFER POINTER 

480 001140 012500 MOV (R5)+.RO : BAD S/N MESSAGE POINTER 

481 001142 105767 0000006 TSTB  =—- $SWLST : LISTING THE MDBSF 

482 001146 001010 BNE : IF NE, YES 

483 001150 021367 0000006 CMP (R3) , SSNAME : VERIFY THE SERIAL NUMBER 

484 001154 001020 BNE 4$ : IF NE, FIRST S/N WORD NOT CORRECT 

485 001156 026367 000002 0000026 CMP 2(R3),$SNAME+2 > CHECK THE SECOND WORD 

486 001164 001014 BNE 4$ : IF NE, SERIAL NUMBER DOESN'T MATCH 

487 001166 000405 BR 2$ : CHECK THE ALIGNMENT FLAG 

488 001170 005713 1$: TST (R3) : IS SERIAL NUMBER NON-ZERO? 

489 001172 001003 BNE $ : IF NE YES 

490 001174 005763 000002 | TST (R3) + MAYBE? 

491 001200 001403 BEQ $ : IF EQ 

492 001202 005763 000006 2s: TST 6(R3) : TEST THE ALIGNMENT DISK FLAG 

493 001206 001403 BEQ 4$ + IF EQ, BSF OK 

494 001210 012500 3$: MOV (R5)+,RO + CORRUPT BSF MESSAGE POINTER 

495 oo1g12 000261 SEC + SET THE ERROR INDICATOR 

496 001214 000402 BR 5$ : 

497 001216 00572 4$: TST (RS)+ + CORRECT THE RETURN 
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498 001220 000241 CLC ; SET THE GOOD INDICATOR 
r+ 001222 000205 5$: RTS R5 3 RETURN 
501 3+ 
2 3 **-SWIBSF-WRITE THE MANUFACTURER'S AND USER'S BAD SECTOR FILES 
504 ; THIS ROUTINE WILL WRITE THE 16 BIT MDBSF AND THE UDBSF ON THE 
209 3 PalaMey DEC STD 144 TRACK (558,13) AND ON THE ALTERNATE TRACK 
507 : et: | 
508 3 INPUTS: 
509 ; NONE . 
510 : 
511 3 OUTPUTS: 
512 3 NONE. | 
an ot | 
515 001224 004767 001232 SWIBSF::CALL § $SRIMF ; SORT THE MDBSF 
516 001230 004767 001262 CALL $SRTUF ; SORT THE UDBSF | 
517 001234 012703 0000006 MOV #SLOGDV,R3 3 LOGICAL DEVICE ADDRESS POINTER 
518 001240 064767 177150 CALL § $UPDMX ; UPDATE THE ADDRESS VALUES 
519 001244 012767 001000 0000006 MOV #512.,$XFRSZ §; SET ONE BLOCK BYTE COUNT 
520 001252 016767 000000G 0000006 MOV S$MXLBN,SLBNH 3; SETUP LBN 
2s} 001260 016767 000002G 0000006 MOV SMXLBN+2,$LBNL ; ... | 
i ; WRITE THE 16 BIT MDBSF | 
525 001266 012705 0000006 MOV ASMDBSF RS : SET MDBSF ADDRESS 
526 001272 016701 0000006 MOV $MBSS7,R1 ; GET NUMBER OF BLOCKS IN MDBSF 
527 001276 006201 ASR R1 3 DIVIDE BY TWO 
528 001300 012703 000000C MOV #IO.WLT!1Q.X,R3 ; SET WRITE LAST TRACK FUNCTION CODE 
2¢3 001506 006767 000110 CALL 1$ 3, WRITE THE MDBSF 
234 3 WRITE THE 16 BIT UDBSF | 
533 001310 012705 0000006 MOV ASUDBSF RS 3 UDBSF ADDRESS 
534 001314 016701 0000006 MOV $UBSSZ,R1 ; GET NUMBER OF BLOCKS IN UDBSF 
535 001320 006201 ASR R1 : DIVIDE BY TWO 
536 001322 012703 000000C MOV #10.WLT!1Q.X,R3 ; SET WRITE LAST TRACK FUNCTION CODE 
one 001326 004767 000066 CALL 1$ ; WRITE THE UDBSF 
44 ; WRITE THE ALTERNATE DEC STD 144 TRACK (559,1) 
541 001332 012703 9000006 MOV #SPHYDV,R3 3 CHANGE TO PHYSICAL ADDRESSING 
ate 001336 004767 17705 CALL § $UPDMX 3 UPDATE THE MAX VALU 
543 001342 016767 000000G 0000006 MOV SALFLB,$LBNH =; ALTERNATE DEC STD 144 ADDRESS 
oe 001350 016767 000002G 0000006 MOV SALFLB+2,$LBNL ; 
309 3 WRITE THE ALTERNATE MDBSF 
548 001356 012705 0000006 MOV #SMDBSF .R5 : SET MDBSF ADDRESS 
549 001362 016701 0000006 MOV SMBSSZ,R1 3 NUMBER OF BLOCKS IN THE MDBSF 
550 001366 006201 ASR R ; DIVIDE BY TWO 
551 001370 012703 000000C MOV #10. FEW!1Q.UMD,R3 sSET WRITE FE CYLINDER FUNCTION 
225 001374 004767 000020 CALL 1$ : 
554 3 WRITE THE ALTERNATE UDBSF 

| 
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555 

236 001400 012705 0000006 MOV #SUDBSF RS : UDBSF ADDRESS 

55 001406 016701 0000006 MOV $UBSSZ,R1 t UDBSF SIZE 

558 00141 01. ASR R1 : DIVIDE BY Two 

559 001412 012746 000000C MOV #IO.FEW!IQ.UMD,-(SP) _;SET WRITE FE CYLINDER FUNCTION 
560 001416 000401 BR 2$ : 

561 001420 010346 1$: MOV R3,-(SP) t SAVE THE FUNCTION CODE 

262 001422 011603 2$: MOV (SP) ,R3 : LOAD THE FUNCTION CODE 

563 001424 004767 0000006 CALL $DSKiO ¢ WRITE THE BLOCK. 

564 001430 062767 000002 0090006 ADD #2,$LBNL ; UPDATE BLOCK NUMBER 

565 001436 005567 0000006 ADC $LBNH Sees ty & 

566 001442 005301 DEC Ri : FINISHED WITH THE BSF ? 

567 001444 001366 E 2$ : IFN 

568 001446 005726 TST (SP)+ : CORRECT THE STACK 

369 001450 000207 RETURN : 

571 3¢ 

372 ? **=$RDSSF-READ RM8O SKIP SECTOR FILE 

574 t THIS ROUTINE WILL READ THE SKIP SECTOR FILE FOUND ON THE FIRST TRACK 
229 > OF THE FE CYLINDER AREA ON THE RM8O. 

577 : INPUTS: 

28 ; $SSFLB = DISK ADDRESS OF START OF SKIPPED SECTOR FILE 

580 : OUTPUTS: 

381 ; A GOOD COPY OF THE SSF IS READ INTO SSF BUFFER 

585 001452 012703 0000006 SRDSSF : :MOV #SPHYDV,R3 : PHYSICAL DEVICE ADDRESS POINTER 

586 001456 004767 176732 CALL : TE THE ADDRESS VALUES 

587 001462 012767 000000C 0000006 MOV #512. *<SSSFLN>,SKFRSZ ; SET SIZE OF ONE COPY OF SSF (BYTES) 
588 001470 016767 0000006 0000006 MOV $SSFLB,$LBNH ° ; SET DISK ADDRESS OF SSF 

589 001476 016767 0000026 0000006 MOV SSSFLB+2,$LBNL : 

590 001504 016701 000000G MOV $SSFSZ,Ri : GET NUMBER OF COPIES OF SKIP SECTOR FILE 
591 001510 010146 MOV R1,-(SP) : SAVE THE COPY COUNT 

592 001512 000405 BR : CONTINU 

593 001514 062767 0000006 0000006 1$: ADD #SSSFLN,SLBNL =: TRY NEXT USABLE SSF COPY 

594 001522 105567 0000006 ADCB ; 

595 001526 012705 0000006 2$: MOV #SSSF RS : GET ADDRESS OF SKIP SECTOR FILE BUFFER 
596 001532 012703 000000C MOV #10.FER!1Q.UMD,R3 : SET READ FE CYLINDER FUNCTION 
597 001536 004767 0000006 CALL  $DSKIO 3 READ 1° COPY OF SSF 

598 001542 103017 BCC 5 : IF CC, OK 

599 001544 912700 0000006 MOV #SMSG58,RO : CAN'T READ SSF 

600 001550 012601 3$: MOV (SP)+,R1 : GET THE SSF COPY COUNTER 

601 001552 005301 DEC t DECREMENT THE COPY COUNTER 

602 001554 001006 BNE 4$ : IF NE, TRY AGAIN 

60 001556 04767 0000006 CALL  $PRINT t PRINT THE ERROR MESSAGE 

6% 00156 12700 9000004 MOV #SMSG41,RO t UNABLE TO RECOVER SSF 

605 001566 00016 00006 JMP SMSGUR : EXIT, CAN'T READ SSF OR SSF CORRUPT 
606 001572 01014 4$: MOV R1,-(SP) : 

607 001574 004767 0000006 CALL $PRINT * PRINT THE MESSAGE 

608 001600 745 BR 1$ : TRY AGAIN 

609 001602 012700 9000006 5$: MOV #SSSF RO : START WITH HEADER 

610 0016u4 912701 1 G MOV #SSSFHD-1,R1 : AND ITS LENGTH 

611 001612 004767 176556 CALL  SSFCRC : COMPUTE HEADER CHECKSUM 
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920120 CMP R1,(RO)+ ; CHECK THE CHECKSUM WORD 
1020 BNE 6 : IF NE, BAD CH ks 
012701 1777776 MOV WSSSFDT=1,R1 — : DATA FIELD LENGTH 
004767 176542 CALL  SSFCRC : COMPUTE CHECKSUM OVER DATA AREA 
020110 CMP R1, (RO) + CHEC ckSUM OK? 
001912 BNE : IF NO 
005767 0000046 TST SSSF+4 ; theation DATE PRESENT 
001407 BEQ ; IF EQ 
005767 0000066 TST $SSF+6 t REVISION DATE PRESENT 
001404 BEQ : IF EQ 
122767 000001 0000126 CMPBss#1, $SSF +12 t 16 BIT MODE SSF ? 
001403 BEQ + IF EQ, YES 
012700 0000006 6$: MOV #$MSG59,RO : SSF CORRUPT 
000730 BR 3$ : TRY AGAIN 
909726 7$: TST (SP) + + CORRECT THE STACK 
105767 0000006 TSTB = $SWLST : LISTING THE BSF'S ? 
001026 BNE 10$ : IF NE, YES 
105767 0000006 TSTB $SWMOD + MODIFYING THE BSF'S 
001007 BNE aS : IF NE, YE 
016767 9000006 0000006 MOV SSSF ,SSNAME + COPY THE SERI L NUMBER 
016767 0000026 0000026 mov $ssF#2, »SSNAME+2 : 
026767 0000006 0000006 8$: CMP SSSF , SSNAME ; CHECK THE SERIAL NUMBER 
001 BNE : IF NE, DOESN'T MATCH 
026767 0000026 0000026 CMP SSSF+2,$SNAME+2 ; CHECK THE SECOND S/N WORD 
012700 0000006 9$: MOV #MSGERB,RO : HDA AND ENTERED SERIAL NUMBER DON'T MATCH 
0167 0000006 JMP SMSGWR + EXIT 
167 000446 10$: § JMP SSRTSF : SORT THE SSF AND RETURN 
3+ 
+ *e=-SWTSSF-WRITE RM8O SKIP SECTOR FILE 
: THIS ROUTINE WILL WRITE THE SKIP SECTOR FILE FIVE TIMES ON THE FIRST 
t TRACK OF THE FE CYLINDER AREA OF THE RM80 (559,0). 
+ INPUTS: 
; $SSFLB = DISK ADDRESS OF START OF SKIP SECTOR FILE 
t OUTPUTS: 
; WRITE SKIP SECTOR FILE 
004767 000442 SWISSF::CALL  $SRTSF : SORT THE SSF 
012703 0000006 MOV ASPHYDV,R3 i PHYSICAL DEVICE ADDRESS POINDER 
004767 176420 CALL § $UPDMX i UPDATE T HE ADDRESS VALU 
912700 0006 MOV #SSSF RO 'GET POINTER TO SKIP SECTOR FILE 
012701 177777G MOV WSSSFHD-1,R1 GET LENGTH OF HEADER 
004767 364 CALL SSF CRC ; <GOmbuT — HEADER CHECKSUM 
10120 MOV (RO)+ STORE CRC AWAY 
012701 1777776 MOV asSSrDt-1, R1 3GET LENGTH OF SSF DATA AREA 
004767 176352 CALL SSF 260 COMPUTE CHECKSUM OVER DATA 
910110 MOV ORE THE DATA FIELD 
01276 900000¢ 0000006 MOV TAG a SSSFLID. siinel “SET SIZE OF ONE COPY OF SSF (BYTES) 
01 205 000006 MOV KIP SECTOR FILE BUFFER ADDRESS 
012703 000000 MOV #10.FEW!10.UMD, aie :SET WRITE FE CYLINDER FUNCTION 
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0000006 0000006 
sit $ 000006 


000000 
0000006 


1 
0000006 0000006 
0000006 


177777 
0000006 
000003 0000006 


2s: 


SSRTRK: : CMP (R1)+,(R1)+ 
CMP (R1) ,#=1 


1$: 
2$: 
3$: 


Bee Se Se Se Be Se Se Ge Fe Se See Bs 


MOV $SSFLB,$LBNH ;SETUP LBN 

MOV $SSFLB+2,S$LBNL ;... 

MOV $SSFS7,R1 : GET_NUMBER OF COPIES OF SKIP SECTOR FILE 
$DSKIO : WRITE THE SSF 

ADD 1 ~S tammaten ; UPDATE BLOCK NUMBER 

DE R1 3 FINISHED ? 

BN 1 ; IF NE, NO 

RETURN : 


s+ 
° 3 **=S$SRTRK~SEARCH BSF OR SSF FOR ANY SECTOR ON A TRACK 
; ; THIS ge tL WILL ye EITHER THE BSF OR THE SSF FOR ANY SEC 


TOR 
URRENT TRACK AND CYLINDER. IF ONE IS FOUND, THEN NO ADDITIONAL 
; SECTORS MAY BE SKIPPED "ON THE CURRENT TRACK AND CYLINDER. 


; : INPUTS: 
: R1 = ADDRESS OF EITHER BSF OR SSF 
R2 = MAXIMUM ADDRESS OF THE FILE SPECIFIED IN R1 
; OUTPUTS: 
; CC = SOME SECTOR ON THE CURRENT TRACK AND CYLINDER 
R1 = ADDR OF ry OR SSF ENTRY 
cS = SPECIFIED FILE EXHAUSTE 
R1 = POINTS TO NEXT ENTRY 


POINT e. ete ENTRY IN SPECIFIED FILE 
te STED 


BEQ : IF E 
CAP (R1) ,SCYL ; CYLINDER NUMBER MATCH ? 
CMPB (R1),STRK + TRACK NUMBERS MATCH ? 
BNE 2s 3 
CLC + SHOW ENTRY WAS FOUND 
RETURN ; 
CMP R1,R2 + IS SPECIFIED FILE EXHAUSTED ? 
BNE SSRTRK + IF NE, 
SEC + SHOW SPECIFIED FILE EXHAUSTED 
RETURN 
#*=$SRALL=SEARCH ALL THE BAD SECTOR FILES 
SSRFES-SEARCH THE FE CYLINDER BUFFER 
SRMDF=SEARCH MANUFACTURER'S BAD SECTOR FILE 
SSRUDF-SEARCH THE USER'S BAD SECTOR FILE 
SSRSDF-SEARCH THE SKIPPED SECTOR FILE 
SSMBSF-SEARCH THE FILE SPECIFIED BY R1 & R2 
THIS ROUTINE WILL SEARCH THE SPECIFIED FILE FOR A MATCH. 


INPUTS: 
S$SEC, STRK, AND $SCYL PRESET 


*SSMBSF* INPUTS: 





SEQ 0053 


. 5 | 


782 -DSABL LSB 
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726 ; R1 = ADDRESS OF LAST BSF ENTRY (INITIALLY $BSF+4) ( 
fer : R2 = LAST ADDRESS OF SPECIFIED FILE | 
29 + OUTPUTS: { 
? ; IF CC R1 = ADDRESS OF MDBSF ENTRY { 
731 ; R3 = ISOLATED BAD SECTOR FLAGS. | { 
3 : IF CS R1 = POINTS TO NEXT ENTRY. FILE EXHAUSTED) |! 
734 { 
035 .ENABL LSB ! 
737 002150 016746 0000006 SSRALL: :MOV $SEC,-(SP) : SAVE THE SECTOR ADDRESS { 
38 002154 004767 000100 CALL  $SRSDF : SEE IF ENTRY IN THE SSF { 
739 002160 103015 Bcc $ : IF CC, IT IS { 
740 002162 004767 000154 CALL  $SRSSF t SEE IF ERROR SECTOR IS WITHIN A SKIP REGION | 
741 002166 103402 BCS 1$ : IF CS, NO { 
742 002170 105367 0000006 DECB =. $SEC t DECREMENT THE SECTOR ADDRESS { 
743 002174 004767 000034 1$: CALL $SRMDF : SEARCH F { 
2200 103005 BCC $ : IF CC, ADDRESS PRESENT | 
745 002202 004767 000040 CALL  $SRUDF : SEARCH THE UDBSF | 
6 2206 103002 BCC 2$ : IF CC, ADDRESS PRESENT | 
747 002210 004767 000006 CALL $SRFES : SEE IF ENTRY DUPLICATED IN THE FE AREA | 
748 002214 012667 0000006 2s: MOV (SP)+,$SEC + RESTORE THE SECTOR ADDRESS | 
£49 002220 000207 RETURN : 
751 002222 012701 1777746 SSRFES: :MOV ASFEBSF-4 : FEBSF STARTING ADDRESS | 
752 002226 012702 0001006 MOV PSTERSEeGh. OR? : FEBSF LENGTH | 
33 002232 000416 BR 3$ 3 
755 002234 012701 0000046 SSRMDF : :MOV ASMDBSF +4 ,R1 MDBSF STARTING ADDRESS | 
756 002240 012702 0007746 MOV #SMDBSF +1000-4, Re ; MDBSF LENGTH | 
37 002244 000411 BR 3$ : 
759 002246 012701 0000046 SSRUDF : :MOV #SUDBSF +4 ,R1 UDBSF STARTING ADDRESS 
760 002252 012702 0007746 MOV #SUDBSF +1000-4, Re ; UDBSF LENGTH 
761 002256 000404 BR 3$ 
763 002260 012701 000000C SSRSDF : :MOV nn AY Rl; SSF STARTING ADDRESS (~4) 
764 002264 012702 000000C¢ MOV #SSSF +<1000*$SSFLND-2,R2° 3 SSF ENDING ADDRESS 
765 002270 3$: 
767 002270 022121 SSMBSF : : CMP (R1)+,(R1)+ : POINT TO NEXT MDBSF ENTRY 
768 002272 021127 177777 CMP (R1) ,#=1 3 MDBSF EXHAUSTED? 
769 002276 001417 BEQ $ : IF EQ YES 
770 00 021167 0000006 CMP (R1),$CYL : CYLINDER NUMBERS MATCH? 
771 00 991012 BNE 4$ 3 IFN 
oe 00 306 126167 000003 0000006 CMPB =s«3(R1) , STRK : TRACK NUMBERS MATCH? 
14 001006 BNE 4$ : 
774 002316 126167 000002 0000006 CMPB =s-_:-2(R1) , SSEC : TEC TOR NUMBERS MATCH? 
775 002324 001002 BNE 4$ : IFN 
776 0023 900241 C : SHOW ENTRY WAS FOUND 
777 002330 000207 RETURN : 
778 00 3 2 920102 4$: CMP R1,R2 : IS SPECIFIED FILE EXHAUSTED? 
002334 0013 BNE 3$ : IF NE, NO | 
780 002336 000261 5$: ¢ * SHOW MDBSF EXHAUSTED 
781 002340 000207 RETURN ; | 
j 


783 
784 
785 


Sg 


82338 


SISz8 


LLALALAALASSSSSSSSSSIBY 
S 


MEWN “OC OONOUSWN—oO 
™m 
&* 
Nm 
&* 


REVRRER 


828 


—=0— oo 

onenvenu 

2A 2A o—orn 
— 


oooo 
SRSSss 
™ 
a 


Suse 


000000C 
0000006 


000003 
000002 
000000C 


177777 


0000006 
0000006 


OUTPUTS: 
CC = SSF ENTRY .LE. ADDRESS IN SCYL,$TRK,S$SEC 
CS = NO SSF ENTRY .LE. ADDRESS IN $CYL,$TRK,$SEC 
SSRSSF : :MOV R1,- ; SAV 1 
MOV ABESF cousssrH>, Ri BEGINNING ADDRESS OF SSF DATA 
1$: CoP (R1),$CY : NDER NUMBERS MATCH 
COPE (R1) ,$TRK : lt “NUMBERS MATCH ? 
CMPB =. 2(R1) , SSEC t CHECK FOR A SECTOR 
BHI 3$ : IF HI, SSF ENTRY HIGHER THAN $SEC 
cle mm ; SHOW ENTRY WAS FOUND 
2$: CMP R1 LWSSSF +<1000*SSSFLN>~2 : SSF BUFFER END ? 
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#*=$SRSSF-SEARCH SSF FOR AN TRACK ENTRY 


THIS ROUTINE — ct ys SSF FOR AN ENTRY ON THE CURRENT TRACK AND 
THE a ADDRESS 


CYLINDER. IF AN ENTRY IS FOUND WHICH IS LESS THAN 
IN *SSEC*, THE ROUTINE WILL RETURN WITH THE ‘C* BIT CLEAR 


TS: 

SCYL LOADED WITH THE 35 hag ADDRESS 
STR LOADED WITH THE TRACK ADDRESS 
SSEC LOADED WITH THE SECTOR NADDRESS 


CMP (R1)+,(R1)+ 


; IF EQ, Y¥ 
; INCREMENT BUFFER een 
CMP eal E 


; SEE IF iy OF DAT. 


BNE ; E 
3$: SEC how *ssec° NOT IN SKIP REGION 
4$: MOV (SP)+,R1 ¢ RESTORE R RI 

RETURN 


; OUTPUTS 


+ 
; *&=-$SRTSF-SORT THE SSF BUFFER 


SSF FILE SORTED IN ASCENDING SEQUENCE 


= 
e 


SSRTSF : :MOV #561. ,$CYL ¢ LOAD A PHONY CYLINDER ADDRESS 
CLR STRK : CLEAR THE TRACK ADDRESS 
CLR $SEC : SECTOR 
CALL SSRSDF : io THE END OF THE DAT 
MOV R1,R 3 srr THE END OF DATA POINTER 
MOV aSSSF o<2+8SSFHD>, oR ; SSF STARTING ADDRESS 
JMP $SOR : SORT THE SSF 


—_ nme loo ve 





FMTSUB - FORMAT 


co 
SES 


856 002512 
857 
858 
859 
860 
861 
862 
863 
865 


867 
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#*=$SRIMF-SORT THE MDBSF BUFFER 


:; INPUTS: 

3 NONE 

; OUTPUTS: 

3 MDBSF SORTED IN ASCENDING 
012767 001061 000000G S$SRTMF::MOV #561. ,$CYL 3 
005067 9000906 CLR $TRK : 
005067 0000 CLR $SEC s 
004767 177530 CALL SSRMDF : 
010103 MOV R1,R5 : 
012701 0000106 MOV #SMDBSF+10,R1 ; 
000167 000034 JMP SSORT : 


; OUTPUTS 


+ 
; **=$SRTUF-SORT THE UDBSF BUFFER 


UDBSF SORTED IN ASCENDING 


012767 001061 0000006 $SRTUF : :MOV #561. ,$CYL : 
005067 0000006 CLR $TRK 3 
005067 0000006 CLR $SEC : 
004767 177506 CALL SSRUDF : 
010103 MOV R1,R3 : 
012701 0000106 MOV #SUDBSF+10,R1 =; 
000167 000000 JMP SSORT : 


s+ 


; **-$SORT-SORT THE INPUT 


SEQUENCE 


D A_PHONY CYLINDER ADDRESS 


; CLEAR THE TRACK ADDRESS 
SECTOR 


SEARCH T 


HE MDBSF 
; COPY THE END OF DATA POINTER 
; MDBSF lbh, ADDRESS 


SORT T. 


SEQUENCE 


LOAD A_PHONY CYLINDER ADDRESS 
CLEAR THE gS ADDRESS 


SEARCH THE UDBSF 

COPY THE END OF DATA POINTER 
UDBSF STARTING ADDRESS 

SORT THE UMDBSF 


TABLE 
; THIS ROUTINE SORTS THE INPUT TABLE IN ASCENDING ORDER 


; BASED ON DISK ADDRESSES. 


3 INPUTS: 

: R1 = TABLE START ADDRESS 

; R3 = TABLE UPPER LIMIT ADDRESS 

; OUTPUTS: 

: SORTED TABLE 
01030. $SORT: MOV R3.R : R2 = CURR ran ENTRY POINTER 
16010 SUB R1,R 3 TEST FOR AT Ast 
T5444 000004 CMP #4,R : TWO ENTRIES iN LE 
1 BHIS 3 IF NOT(HIS), NO "NEED TO SORT 
01010. MOV R1,R2 : INIT R2 


SEQ a 


: 
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897 002566 02 322 CMP (R2)+, (R2)+ : 
898 002570 01 36 000076 MOV R3, TEMP : FORM AND SAVE 
899 002574 162767 000004 000070 SUB #4. TEMP + UPPER LIMIT ON R1 
300 602 gett 1$: CMP (RI), (R2) : CYL I = CYL 141? 
1 002604 00241 BLT 3$ : IF LT YES 
90 902606 901004 BNE $ : IF NE CYL I > CYL 141 
903 00261 026162 000002 000002 CMP (R1),2(R2) : CYL I = CYL 141... TEST TRK/SEC 
904 00261 1 BLE $ : IF LE NO SWAP NECESSARY 
905 00. 11146 2s: MOV (R1),<(SP) + SWAP ENTRIES 
906 00; 16146 000002 MOV 2(R15 ,-(SP) : , 
907 00. 11211 MOV (R2),(R1) : : 
908 0026 16261 900002 000002 MOV 2(R25,2¢R1) : ; 
909 0026 12662 00000 MOV (SP)+,2(R2) : : 
910 90264 1261 MOV (SP)+, (R2) : > 
911 00 02 22 3$: CMP (R2)+, (R2)+ t UPDATE R2 
gig 002 2020 CMP R2,R3 : THIS PASS DONE? 
913 002650 002754 BLT 1$ : IF LT NO 
914 00265 Oeei21 CMP (R1)+, (R1)¢ : UPDATE R1 
915 002654 020167 000012 CMP R1, TEMP : ALL DONE? 
916 002660 002003 BGE : IF GE YES 
917 002662 910102 MOV R1,R2 t RESET R2 
918 002664 22228 CMP (R2)+, (R2)+ ; 
919 002666 00074 1$ ; 
320 002670 000207 4$ RETURN : 
4 002672 000000 TEMP: .WORD 0 : SORT WORK LOCATION 
924 ge 
929 tS **-GENHDR-GENERATE HEADER WORD PATTERN 
356 : THIS SUBROUTINE WILL GENENRATE THE 4-WORD HEADER PATTERN. 
929 : INPUTS: 
930 ; RO = BUFFER ADDRESS 
GS ; OUTPTUS: 
933 ; RO = UPDATED BUFFER ADDRESS 
935 ; 
936 002674 016710 6 GENHDR: :MOV SCYL, (RO) : SET CYLINDER NUMBER 
937 002700 116760 0000006 00000 MOVB $SEC.g (RO) ; SET SECTOR NUMBER 
938 002706 116760 0000006 00000 MOVB $TRK.3(RO) ; SET TRACK NUMBER 
939 002714 052710 150000 BIS #150000,(RO) = SET GOOD SECTOR AND 16-BIT FORMAT FLAGS 
940 0027; 116766 MOVB = $SEC,, - (§P) t SAVE THE CURRENT SECTOR ADDRESS 
941 002724 105767 0000006 TSTB SKPFRE 3 LOOK AT THE SkIP SECTOR FLAG 
ohe 902 001405 BEQ ; IF EQ, NO SKIP SECTOR ON THIS TRACK 
943 002732 052710 020000 BIS #20000, (RO ; SET SKIP SECTOR FLAG IN HEADER (BAD) 
944 002736 105367 0000006 DECB 4s $SECC : DECREMENT THE SECTOR ADDRESS 
945 002742 000410 23 
947 ; SEARCH THE SKIP SECTOR FILE FOR A SECTOR ON THIS TRACK THE SAME AS 
948 "$SEC’. IF A SECTOR IS FOUND, THEN SET THE SKIP SECTOR FLAG IN THE 
349 + REMAINING HEADERS AND NOTE THAT A SKIPPED SECTOR WAS FOUND. 
951 002744 004767 177310 1$: CALL § $SRSDF i SEARCH THE SKIP SECTOR FILE 
952 002750 103405 BCS 23 : IF CS NO SECTOR THE SAME 
953 002752 052710 020000 BIS #20000, (RO) : SET SKIP SECTOR FLAG (BAD) 
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954 002756 
955 002762 


MUVL 
oF 


$2883293 
3 


S8SoF 
s3 ae sess 
= 


$ 
eed Ee 
- 


L338 

Ones 
sss 
SSSSS 
ENANVSF \ 
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N™N 
N 
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sie 


BE Shee 


3 


_ 
ae 
YES 


=f 
mn 


0000006 


177244 
100000 


177242 
040000 


177202 


140000 
0000006 
0000006 


INCB . : INC_SKIPPED SECTOR FLAG 
BR $ ; EXIT 


; SEARCH THE MDBSF, UDBSF, & THE FE BSF BUFFER FOR A MATCH. IF ONE IS 
: FOUND, SET THE BAD SECTOR BITS IN THE APPROPRIATE HEADER. 


2s: CALL SSRMDF 3 SEARCH THE MDBSF 
BCS 3$ : IF_CS, MDBSF EXHAUSTED 
BIC #100000, (RO) 3 CLEAR THE MF BIT (BAD) 
BR 5$ 

3$: CALL $SRUDF ; SEARCH THE UDBSF 
BCS oh ; IF CS, UDBSF EXHAUSTED 


Bic #0000, (RO) : CLEAR THE UF BIT (BAD) 


4$: CALL SSRFES 


: SEARCH THE FE BSF 
BCS : IF CS, FE BSF EX 
BIC #140000,(RO)  : CLEAR BOTH THE UF & MF BITS (BAD) 
5$: MOVB (SP) +, $SEC : RESTORE THE SECTOR ADDRESS 
ADD SECSZ.RO + UPDATE BUFFER ADDRESS 


- END 


fearon nenenenrenemeetatemnannneaeaerec eNOS 
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SYMBOL TABLE 


ERROU1 gooceon SBUFRX= seeee8 GX SMSG18= seeee% GX 
GENHDR 002674RG SCBDMG= *eeeee GX SMSG19= seenee GX 
IO. FER= seeene GX SCBOMG= *eeene GX eels akeakae GX 
IO. FEW= seenen GX SCVTDA 000132RG SMSG 


keaane GY 
10.HMS= *eeee2 GX SCYL = seeane GX srsecgs akanee GX 
1O.RLB= teeeee GX SDSKIO= eeeeee GX SMSG41= seeeee GX 
SOVICE= seene2 GX SMSG42= seanne GX 
1Q.UMD= seeee8 GX SDVUNT= seeee8 GX SMSG45= seeene GX 
SMSG44= seeane GX 


0003 SEROUT 000032RG SMSG5S8= teeeee GX 
MSGERB= eeeeee GX SFEBSF= seeane GX SMSG59= seanee GX 
RDBSF 001116R SHOMSK 000204RG SMULT 000342RG 
SECSZ = teeeee GX SIOST = teenee GX SMVPAT 000000 
SKPFRE= seeee2 GX SLBNH = seeaee GX SMXCYL= seeaa8 GX 
SSFCRC 000374R SLBNL = teeeee GX SMXLBN= teeeee GX 
TEMP 002672R SLOGDV= seeee% GX SMXSEC= seeeee GX 
TRKSZ = xeaeee GX SMBSSZ= sexane GX SMXTRK= seeae% GX 
VYBSF 001136R SMDBSF= teeee% GX SPAT = etanee GX 

= eeeeee GX SMOVE 000240RG SPHYDV= *eeeee GX 
SBUF = exeeene GX SMSGWR= xeaeen GX 
- ABS. 000000 


3040 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 908 WORDS  ( 4 PAGES) 
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 
ELAPSED TIME: 32 


00:00: 
(300, 20]FMTSUB,C300, 30JFMTSUB=[300, 10]FMTSUB 


5 


SPRINT= seeeee GX 
SPRMPT 000250RG 
SPRNTOQ= seeee8 GX 
SRDBSF 000616RG 
SRDSSF 001452RG 
SREAD = seanen GX 
= aeeare GX 


SSRUDF 002246RG 
$SSF = seeee2 GX 
SSSFDT= eeeeee GX 
SSSFHD= seeee8 GX 
SSSFLB= seeee2 GX 
SSSFLN= teeeee GX 
SSSFSZ= seeee2 GX 
SSWLST= seeee8 GX 
SSWMOD= seeeee GX 


SUPDMX RG 
SWIBSF 9001224RG 

001760RG 
SXFRSZ= sxeene GX 


SEQ 0059 


a 







CONAUS WN 
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Nm 
_ 
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TITLE FMTPRS = GET AND PARSE COMMAND LINE 
IDENT /01.00/ 


COPYRIGHT (C) 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
ae at ld SYSTEM AND MAY BE eis crtue. THE Phe he 


AN R_PERSON EXCEPT FOR 0 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL_ASSUMES NO RESPONSIBI " 


L FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH 


Y T 
S NOT SUPPLIED BY DIGITAL. 
VERSION 01.00 


C. HESS 14-AUG-80 
M. LEAVITT 14-0CT-80 


-MCALL DIRS, ISTAT$, STATES, TRANS 
~MCALL DEVDFS 
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BS 3+ | 
3 3 **=$PARSE-PARSE COMMAND LINE | 
37 3; THIS ROUTINE WILL GET THE COMMAND LINE AND PARSE THE 
3 ; DEVICE NAME AND SWITCHES. 
40 3 INPUTS: 
$3 3 NONE. 
4 ; OUTPUTS: 
44 : R1 = DEVICE UNIT NUMBER 
45 : EXIT IS TO "SMESAG' IF ERROR. sh 
Pi ; EXIT IS TO ‘‘SFMTEX’* COMMAND LINE TERMINATED WITH ‘‘EOF'’. 
48 
49 000000 005227 177777 SPARSE: : INC #1 3; FIRST TIME THRU HERE ? 
50 000004 001404 BEQ 1$ ; BR_IF YES 
51 000006 012700 000000G MOV #SSTARS ,RO ; GET ADDRESS OF MESSAGE 
26 000012 004767 0000006 CALL SPRIN 3 PRINT ‘aeaannnane'’<| F> 
53 000016 012700 0000006 1$: MOV #$MSG70,RO 3; GET PROMPT MESSAGE ADDRESS 
54 000022 004767 G00000G CALL SPRMPT 3; PROMPT USER AND GET RESPONSE 
55 000026 001006 BNE 2s ; IF COMMAND LINE ENTERED 
56 000030 122767 000000C 0000006 CMPB #1E.E0F&377,$10ST 3 OF INPUT? 
57 000036 001367 BNE i$ : IF NE NO 
3 000040 000167 000000G JMP SFMTEX 3: EXIT GRACEFULLY 
3 3; SETUP TO CALL THE PARSER 
62 000044 005001 2s: CLR R1 ; CLEAR OPTIONS WORD 
65 000046 012702 000000° MOV MUNTKT1,R2 3; GET KEYWORD TABLE ADDRESS 
64 000052 012704 0000006 MOV #SBUFRX RS 3; GET ADDRESS OF COMMAND LI 
65 000056 012705 2 MOV #UNITR : GET STARTING STATE ADDRESS 
000062 012767 177777 0900006 MOV #-1,SDVUNT ; RESET DEVICE NUMBER 
67 000070 004767 CALL . TPARS 3 GO PARSE THE INPUT LINE 
68 000074 103435 BCS SYNTAX 3: IF CS SYNTAX ERR 
69 000076 005767 0000006 TST SDVUNT 3 NULL PARSE? 
70 000102 100745 BMI 1$ 3; IF MI, YES 
71 000104 Oe 700 00000 3$: MOV #$MSG71,RO 3; GET PROMPT MESSAGE ADDRESS 
72 000110 004767 0000006 CALL SPRMPT ; PROMPT USER AND GET RESPONSE 
73 000114 001006 4$ ; IF NE COMMAND LINE ENTERED 
74 000116 122767 000000C 0000006 CMPB #IE.EOF&377,$10ST 3 OF INPUT? 
75 000124 001002 BNE 4$ :; IFN 
76 ponies 000167 0000006 JMP SFMTEX : EXIT GRACEFULLY 
77 000132 005001 4$: CLR : CLEAR WOR 
78 000134 012702 000° MOV TKT2,R2 3; GET KEYWORD TABLE ADDRESS 
79 000140 012704 0000006 MOV #SBUFRX RS : GET ADDRESS OF COMMAND LINE 
80 000144 012705 000010° MOV #OPTION.RS 3; GET STARTING STATE ADDRESS 
81 000150 004767 0000006 CALL . TPARS 3; GO PARSE THE INPUT LINE 
82 000154 103405 BCS SYNTAX 3; IF CS SYN ROR 
83 000156 004767 000134 CALL STSTDV 3; MAKE A FINAL DEVICE TEST 
84 000162 016701 0000006 MOV SDVUNT ,R1 3; SET SPECIFIED UNIT NUMBER 
+H 000166 000207 RETURN ; ALL IS OK 
87 000170 012700 000000G SYNTAX: MOV #$MSG2 ,RO 3 SYNTAX ERROR 
4 000174 000167 0000006 JMP SMSGWR 3; EXIT WITH WARNING STATUS 
90 i 
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p2 

98 

94 

95 

96 

97 000200 
98 

99 

100 

101 000200 
106 000200 
103 000200 
104 

105 000200 
106 

107 
108 000200 
109 

110 

111 

112 000200 
113 000200 
114 000200 
115 000200 
116 000200 
117 000200 
118 000200 
119 000200 
120 000200 
121 

122 

123 

124 000200 
125 000200 
126 

127 000200 
128 000200 
129 

130 

131 

136 000200 
133 000200 
134 

135 000200 
136 000200 
137 

138 

139 

140 000200 
141 000200 
i 

143 000200 
144 000200 
145 

146 

147 





so 
. 


STATE TABLE FOR ‘TPARS' PARSER 


eNLIST MEB 


ISTATS UNTST1,UNTKT1 


; READ DEVICE AND UNIT NUMBER 


STATES UNIT 
TRANS $EOS,SEXIT 
TRANS $NUMBR,,SSTUNT 


STATES 3 TERMINATING STATE 


ISTATS OPTST2,OPTKT2 


; PROCESS SWITCH OPTIONS 


os OPTION 


; SET NEW CSR ADDRESS 


STATES CSR 
TRANS ‘= 


STATES 
TRANS $NUMBR,SWITCH,$STCSR 


; SET NEW VECTOR ADDRESS 


STATES VEC 
TRANS ‘= 


STATES 
TRANS $NUMBR,SWITCH,$STVEC 


; SET VERIFY LIMIT (NUMBER OF TIMES TO VERIFY A SECTOR) 


STATES VFL 
TRANS ‘= 


STATES 
TRANS $DNUMB,SWITCH,SSTVFL 


SET ERROR LIMIT 
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' 
148 000200 STATES ERL 
149 000200 TRANS *= 
151 000200 STATES 
15¢ 000200 TRANS  $DNUMB, SWITCH, SSTERL 
134 : SET BAD BLOCK FILE/SKIP SECTOR FILE LIST | 
156 000200 STATES LI 
157 000200 TRANS ":,LOG 
158 000200 TRANS $LAMDA,SWITCH,S$STLIS 
160 000200 STATES LOG 
161 000200 TRANS "L,SWITCH,$STLOG 
168 : SET FORMAT ENABLE 
165 900200 STATES FO 
166 000200 TRANS FE 
167 000200 TRANS  SLAMDA, SWITCH, $STFOR 
169 000200 STATES FE 
179 000200 TRANS ‘'F,SWITCH,S$STFFE 
17 ; SET BSF/SSF INITIALIZATION 
174 000200 STATES IN 
175 000200 TRANS $LAMDA,SWITCH,$STIN 
127 : CHECK FOR ANOTHER OPTION 
179 000200 STATES SWITCH 
180 000200 TRANS $EOS,$EXIT 
181 000200 TRANS °/,0PTION 
185 000200 STATES ; NULL (TERMINATING) STATE 
185 .ENABL LSB 
186 
187 2 
188 > DEVICE UNIT NUMBER 
150 ‘ 
191 000200 016767 0000006 0000006 $STUNT: :MOV .PNUMB,SDVUNT ; STORE UNIT NUMBER 
192 000206 026727 0000006 000007 CMP —« $DVUNT #7 ; -1$ DRIVE NUMBER WITHIN RANGE ? 
193 000214 101402 BLOS }6=s«1$ : IF LOS, 
19% 000216 000167 177746 JMP «SYNTAX : SYNTAX ERROR 
196 : 
197 DETERMINE DEVICE VALIDITY 
199 . 
200 000222 016702 0000006 1$: MOV —s« SDEVHD, R2 : ADDRESS OF 1ST DCB IN SYSTEM 
201 000226 026762 0000006 000004 2S: CMP —s- $DVICE.D.NAM(R2): IS THIS THE RIGHT DCB? 
202 000234 001407 BEQ iG : IF EQ YES 
203 0002 02 000000 MOV —-D.LNK(R2),R2 ss ::- POINT TO NEXT D 


pies CB 
204 000242 001371 BNE 35 : LOOP TILL END OF LIST 


-armeee nm - 


rs : 
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5 900244 912700 0000006 3$: MOV #SMSG4,RO : DEVICE NOT IN SYSTEM | 
000250 000167 0000006 JMP $MESAG : 
307 900254 11676 900006 4$: MOVB  $DVUNT,D.UNIT(R2) : SET UNIT NUMBER RANGE 
362 11676 00000 MOVB  $DVUNT.D.UNIT#1(R2) 
209 00027 916201 MOV D.UCB(R2),R1 =; GET UCB ADDRESS 
10 900274 116761 000006 MOVB = $DVUNT, U.UNIT(R15 > SAVE SPECIFIED UNIT NUMBER | 
1 2 910167 0000006 MOV R1,$UC : SAVE UCB ADDRESS 
ie 306 016167 000020 0000006 MOV U.SCB(R1),$SCB : SAVE SCB ADDRESS 
gi3 000314 000207 RETURN 
215 4 
36 + TEST DEVICE CHARACTERISTICS 
218 , 
219 000316 016701 0000006 STSTDV: :MOV $UCB,R1 : FETCH UCB ADDRESS 
220 000322 016702 0000006 MOV $SCB,R2 ; FETCH SCB ADDRESS 
221 000326 016202 000012 MOV §.CSR(R2) ,R2 3; GET CSR ADDRESS 
222 000332 013746 000004 MOV avs ,-(SP) : SAVE TRAP VECT 
223 000336 012737 000570° 000004 MOV #INTR, ae + PUT OUR OWN IN ITS PLACE 
224 000344 00571 TST (R2) + DOES CSR ADDRESS EXIST? 
225 000346 10300 BCC 5$ : IF CC YES 
226 000350 012637 000004 MOV (SP) +, an : RESTORE TRAP ADDRESS 
227 000354 000733 BR 3$ t PRINT ERROR MESSAGE 
228 000356 012637 000004 5$: MOV (SP)+,a44 : RESTORE TRAP ADDRESS 
229 000362 012762 000040 000010 6s: MOV #40, 10(R2) * CLEAR THE SUBSYSTEM 
30 000270 116162 000006 000010 MOVB _-U.UNIT(R1),10(R23 : SELECT UNIT 
231 000376 016200 000026 MOV 26(R2) ,RO : GET DRIVE TYPE REGISTER 
232 000402 032762 010000 000010 BIT #10000,10(R2) +: SEE IF DRIVE PRESENT 
233 000410 001016 BNE : IF NE, NO = ‘NED’ SET 
234 000412 022700 024026 CMP #24026,RO : IS IT’ AN RM8O ? 
235 000416 001403 BEQ 7$ : IF EQ, YES 
236 000420 022700 020026 CMP #20026,R0 : CHECK OTHER DEVICE TYPE CODE 
237 000424 001013 BNE 10$ : IF NE, NO 
238 000426 032762 010000 000012 7s: BIT #10000,12(R2) +: IS DRIVE ONLINE (MOL SET) ? 
239 000434 001401 BEQ 8 : IF EQ, NO 
240 000436 000207 RETURN ; 
241 000440 012700 0000006 8$: MOV #SMSG7,RO + DRIVE OFFLINE 
242 000444 000405 BR 11$ : 
243 000446 012700 0000006 9$: MOV #$MSG72,RO + DRIVE NOT PRESENT 
244 000452 900402 BR 11$ : 
245 000454 012700 0000006 10$: MOV #$MSG73,RO + DRIVE NOT AN RM80 
346 000460 000167 0000006 11$: JUMP $MESAG : 
248 .DSABL LSB 
249 
250 : 
251 + SET NEW CSR ADDRESS 
$28 ; 
54 000464 016702 0000006 $STCSR: :MOV $UCB,R2 : FETCH UCB ADDRESS 
55 000470 026727 0000006 160000 CMP .PNUMB,#160000 : CSR ADDRESS WITHIN RANGE? 
56 000476 103003 BHIS i$ : IF HIS YES 
337 900500 912700 0000006 NOV #SMSG2,RO : SYNTAX ERROR 
20 000316 vi3746 009576" oooon, 'S’ =O. PHNR bea d. SAVE INTERAUPT VECTOR 
61 boos2 pietas 000006 TST @.PNUMB : SEE IF IT'S ON THE BUS 





262 000524 10 096 BCC : IF CC IT'S THERE 
63 0005 $ 126 MOV (SP) + ans + RESTORE VECTOR 
64 0005 1 709 0000006 #3MSG28,RO ; CSR NOT IN SYSTEM 
65 0005 167 0000006 28: JMP $MESAG 
66 900942 14 762 000001 000007 3$: B1CB WS. OFL,U. sT2(R25 SET DEVICE ON-LINE 
267 000550 0126 00004 MOV (SP)+ an : RESTORE INTERRUPT VECTOR 
68 000554 016702 9000006 MOV $SCB, + GET SCB ADDRESS 
269 000560 016762 0000006 000012 MOV .PNUMB,S.CSR(R2)° : SET CSR ADDRESS 
70 000566 000207 RETURN : 
ore t INTERRUPTS COME HERE ON NON-EXISTANT MEMORY TRAPS 
274 000570 052766 000001 000002 INTR: BIS #1,2(SP) zz SET CAARY BIT IN SAVED PS 
373 000576 000002 RTI t: RETURN 
ev? ; 
378 + SET NEW VECTOR ADDRESS 
280 2 
281 000600 016700 0000006 SSTVEC: “MOV . PNUMB , RO : FETCH NEW VECTOR ADDRESS 
282 000604 020027 001000 CMP RO,#1000 t IS THE VECTOR IN A REASONABLE PLACE? 
283 000510 103006 BHIS $ : IF HIS NO GOOD 
284 000612 032700 000003 BIT #3,R0 + MULTIPLE OF 4? 
285 000616 001407 BEQ 43 : IF EQ YES 
286 000620 012700 0000006 1$: MOV #$MSG27,RO : NOT MULTIPLE OF FOUR 
287 000624 0 BR 3$ ; 
288 000626 012700 0000006 2$: MOV WSMSG2,RO + SYNTAX ERROR 
289 000632 000167 0000006 3$: JMP $MESAS : 
290 000636 016702 0000006 4$: MOV $S(B,R2 + PICK UP SCB ADDRESS 
291 000642 116202 000005 MOVB  S.VCT(R2),R2  : FETCH OLD VECTOR ADDRESS 
292 000646 0427f2 177400 BIC #177400,R2 : THIS IS CHEAPER THAN ANOTHER WAY 
293 000652 006302 ASL R2 : COMPUTE ABSOLUTE ADDRESS 
294 000654 906302 ASL R2 ; 
295 000656 011267 0000006 MOV (R2) ,SINADD : GET RMBO DRIVER ISR ADDRESS 
296 000662 012712 000000G MOV WSNONSI,(R2)  : IGNORE INTERRUPT TO OLD VECTOR 
297 000666 016710 0000006 MOV SINADD, (RO) + NEW RATERRUPT VECTOR 
298 000672 0062 ASR RO + FORM NEW VECTOR MOD4 
299 000674 006200 ASR RO ; 
300 000676 016702 0000006 MOV $SCB,R2 t GET SCB ADDRESS 
301 000702 110062 000005 MOVB Hi e “VCT(R2) : SET NEW VECTOR ADDRESS 
302 000706 000207 RETURN : 
303 
305 t SET VERIFY COUNT 
39 ; 
308 000710 022767 000377 0000006 $STVFL::CMP #377, .PNUMB : LIMIT WITHIN RANGE? 
000716 103407 BLO 1$ : TFL 
10 000720 005767 0000006 TST . PNUMH + STILL? 
11 000724 001004 BNE is : IFN 
le 000726 116767 0000006 0000006 MOVB  =.PNUMB,SVERIF =; SET VERIFICATION COUNT 
13 000734 000207 RETURN : 
313 000736 000167 177226 1$: JMP SYNTAX + SYNTAX ERROR 
16 : 
317 t SET ERROR LIMIT 
318 o 
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FMTPRS = GET AND PARSE 


28 


WWW 
SSSeN 


peers 
oO 

38s 
~ 
x 
— 
So 
nm 
oa 
~ 


AIAN 
Sess 
CONAUSWN—OO0ONOu 
So 
oS 
pear Soar Pe) 


RESREEEERE 


001020 105267 
001024 000207 


000001 


Ww 
vin 
“oo 


Ate c 
COMMAND MACRO M1113 12=JAN-82 11:02 PAGE 3-5 


000277 0000006 SSTERL: : CHP 


0 
0000006 oie . PNUMH 
0000006 0000006 v8 
RETURN 
177174 1$: JMP SYNTAX 


: SET LIST MODE 


0000006 $S 
$s 


0G::INCB $SWLOG 
0000006 IS:: 


$SWLST 


#377, .PNUMB 
1$ 


% 
« PNUMB , SSWERL 


: SET ENABLE FORMAT SWITCH 


LIMIT WITHIN RANGE? 
IF LO NO 

STILL? 

IF NE NO 


; SET ERROR LIMIT 
; SYNTAX ERROR 


SET THE “LIST LOGICAL’ SWITCH 
SET THE "LIST® SWITCH 


; SET THE ‘FORMAT FE* SWITCH 


t SET THE "FORMAT® SWITCH 


SET THE *INITIALIZATION’ SWITCH 


0000006 $STFFE::INCB SSWFFE 
0000006 S$STFOR:: INCB SSWFMT 3 
RETURN 
; SET BSF/SSF INITIALIZATION SWITCH 
0000006 : 


S$STIN:: INCB SSWINT 
RETURN 


Dd 
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SYMBOL T 
OR 002 ad LSE Q00000RG 003 S3.RAL= 000010 
V.C recs tt S13, 000010RG 002 S3.RCU= 000400 
DV. COM= 020000 SPA 000010 $3. TAB= 000100 
-DIR= SpE iP= 000001 $3. VER= Ba ooo 
-F1l= 04 SP.ENB= 000002 $3.WAL= 004000 
-1SP= 002000 SP.LOG= 000004 $3.WES= 000040 
-MBC= 000400 SWIT 000156R 002 S3.8BC= 0002 
DV.MNT= 100000 SYNTAX 990170 UC.ALG= 000200 
DV.MXD= 000100 $.BM 177776 UC.ATT= 000010 
° 004000 $.BM 177774 UC.KIL= 000004 
DV.PSE= 010000 S.C goog UC.LGH= 000003 
V.REC= 000001 S.CSR 00012 UC.NPR= 000100 
DV.SDI= 000020 S.CT 000 -PWF= 000020 
DV.SQD= 000046 S.FRK 000016 C.QUE= 0000 
DV.SWL= 001000 S.1TM 000 0000 
DV.TTY= 000004 LH 000000 UNTKT? QOQOO00RG 
DV.UMD= 000200 ° 000014 UNTST1 Q00000RG 
° 000012 -PRI_ 00000 US. 0000 
D. 000000 S.RCNT 177772 US.BSP= 000002 
D.MSK 000014 S.ROFF 177773 US.BSY= 000200 
. 000004 S.STS 0011 US.CRW= 000004 
D.PCB 000034 S.VCT 00005 US.DSB= 000010 
D.UCB 000002 $1.BEL= 000400 US.ECH= 000002 
D.UCBL 000010 $1.CTO= 000040 US. FOR= 
-UNIT 000006 $1.CTS= 01 US.FRK= 000002 
-VCAN= 000002 $1.DEC= 002000 US.KPF= 00000 
-VDEB= 177776 $1.DPR= 001000 US.LAB= 000004 
D.VINI= 000000 $1.DSI= 004000 US.MDE= 000002 
D.VOUT= 000004 $1.ESC= 000004 -MDM= 000 
D.VPWF= 000006 $1.1BF= 100000 US.MNT= 000100 
ERL 000100R 002 $1. 000200 S.OFL= 000001 
FE 000142R 002 $1.0BY= 000100 S.0UT= 000001 
FO 000130R 002 $1.RAL= 000010 US.PUB= 000004 
IE.EOF= seeeee GX $1.RNE= 000020 US.PWF= 000010 
I 000150R 002 S1.RST= 000001 US.RED= 000002 
INTR 000570R $1.RUB= 000002 US.SHR= 000001 
LI 000110R 002 $1.USI= 020000 US.SPU= 00000 
LOG 000122R 002 $2.ACR= 000001 US.UMD= 00001 
L.ASG 000010 $2.BRQ= 000020 US.VV = 000001 
L.LGTH= 000012 é. 000010 US.WCK= 00001 
L.LNK 000000 S2.FDX= 100000 U.ACP = 00003 
L.NAM 000002 2.FLF= 040000 U.ATT 0002 
L.TYPE 000005 S2.HFF= 020000 -BUF 00 
-UCB_ 000006 S2.HFL= 003400 U.CBF = 900035 
L.UNIT 000004 S2.HHT= 010000 U.CLI 1 
M.BFVH 000011 S2.1RQ= 000200 U.CNT 00030 
M.BFVL 000012 S2.ORQ= be U.CTL 00004 
M.LGTH= 000014 tor 00004 U.CTYP 000050 
M.LNK 000000 S2.VFL= 004000 U.Cw1 000 19 
M.UMRA 000002 -WRA= 000006 U.CW 00001 
M.UMRN 000004 -WRB= 00000 U.CW 49h 
M.UMVH 000010 -BCC= 020 U.CW4 00016 
M.UMVL 000006 $3.DA0= 040000 U.DCB 4 
OPTION 000010R 002 S3.PCU= 100000 J.FCDE= 00004 
- ABS. 177776 000 
001026 001 


U.FNUM= 000036 
U.FPS = 000044 
U.KCSR= 000032 
U.KCS6= 39 34 
U.LUIC 177776 
U.OWN 17777 
U.RED 00v0 
U.RPS = 00004 
U.SCB 000 
U.STS 000005 
U.ST2 000007 
U.TC 0004 
U.TCVP 00004 
U.TFLK 0000: 


F 40 
U.TFRQ 000037 
U.TLPP 


4g 
002 age 00004 


SBUFRX= seeeee GX 
teanee GX 


SDEVHD= 
SDiGit= O0nsee 
SDNUMB= 000314 


SDVICE= saanee GX 


SSTRNG= 
SSTUNT 
SSTVEC 
SSTVFL 
$ P= 


aeeeee GX 


S59 


aerene GX 
aeeene GX 
aeneee GX 


aeneee GX 
aeekak GX 
aanene GX 
ketene GX 
aeeeee GX 
ketene GX 
aeeene GX 
aekene GX 
aeaene GX 
aeenee GX 
aerene GX 


keakke GX 
aekank GX 


000464RG 
000742RG 
001006RG 
001012RG 
001020RG 
001000RG 
000774RG 
000304 
000200RG 
000600RG 
000710RG 
0003 


weaaek GX 
aeeaekr GX 
keakee GX 


—— 


E 
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SYMBOL TABL 
SSTATE 000166 4 
SKTAB 16 00 


SKSTR 31 
ERRORS DETECTED: 0 


VIRTUAL oe a USED: 3819 Re ( 15 PAGES) 
4 pr b3 a 7942_WOR 0 PAGES) 


£300, 20JFMTPRS, 09:01 A =C1,1JEXEMC.’ML ,C300, 10]FMTPRS 
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am 


1 .TITLE FMTR8O = FORMAT/VERIFY RM8O DISKS F 
é “IDENT /01.00/ ¢ 
4 ; 
5 : COPYRIGHT (C) 1980 ' 
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ' 
8 ; ' 
9 : THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ' 
10 t SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION ' 
11 : OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER ' 
i : COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE ' 
1 : TO ANY OTHER’ PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE ' 
14 t WHO AGREES TO THESE LICENSE TERMS. LE TO AND OWNERSHIP OF 
13 : THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 
17 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
18 t NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
19 t EQUIPMENT CORPORATION. 
21 t DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
32 t ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
24 : 
35 : VERSION 01.00 
27 : C. HESS 18-AUG-80 
8 : M. LEAVITT  24=DEC-80 
30 “NLIST CND,BEX 
34 
33 : MESSAGES 
37 000000 012 105 116 MSGIR8: .ASCIZ <LF>/ENTER DATE (DD-MMM-YY): / 
38 000032 110 104 101 MSGERB: *ASCIZ /HDA SERIAL NUMBER: / 
40 : 
41 : DATE FIELDS 
43 000056 112 101 116 DAT: .ASCIZ /JAN/ 
106 105 10 “ASCI1Z /FEB/ 
115 101 12 “ASCIZ = /MAR/ 
46 000072 101 120 1g “ASCIZ /APR/ 
47 000076 115 101 131 “ASCIZ /MAY/ 
48 000102 112 125 116 SASCIZ /JUN/ 
49 000106 112 125 114 SASCIZ /JUL/ 
50 00011 101 125 107 “ASCIZ /AUG/ 
51 000116 123 105 120 SASCI2 /SEP/ 
3 000122 117 103 124 SASCIZ /OCT/ 
5 00012 116 117 126 “ASC1Z /NOV/ 
54 0001 104 105 10 “ASCIZ /DEC/ 
55 000136 000000 WORD 
36 EVEN 
38 : VALID LIMITS FOR DATE FIELDS 
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DATLMT: .WORD ; 
1 BSS) SG es : 
43 - WORD ; FOR YEAR 


DPARS: : ; STORAGE FOR DATE CONVERSION 
BASYR = ° ; BASE YEAR = 1978 


68 

#0 

71 

7 

7 

74 

75 

76 

77 

78 

79 

80 

81 000162 
82 000166 
83 000170 
84 000174 
85 000200 
86 0062 
87 00021 
88 aig hs 
34 000220 
9? 000224 
3g 000230 
94 000234 
95 000240 
96 000242 
97 000246 
98 000252 
99 

100 

101 

106 000254 
103 000260 
104 000264 
105 000270 
106 sia stad 
107 000 
108 000304 
109 000310 
110 Boosie 
111 000316 
A 000324 
113 0003 
114 0003 
115 0003 
118 000340 
117 000 
118 000346 
119 000354 
120 000336 
1s! 000 

1 § 000366 
12 

124 000372 


$s Fe So 
=Oo— 
<S 


99000000000 
eo Nn 


>) 
o 


_ 
-—-o 


o 
N 


H 
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+ 
; *#=$RMB0-FORMAT/VERIFY RM80 DISK PACKS 
; ret ROUT INE wel OO eae THE FORMAT AND/OR VERIFICATION 


OUTPUTS: 
s NONE 
0000006 SRM80: : td 
0000006 CALL 
0000006 CALL 
0000106 0000006 MOV 
000310 TST 
BNE 
000000° MOV 
0000006 CALL 
000274 CALL 
0002 INC 
0000006 1$: TST8 
BEQ 
0000006 CALL 
0000006 TST8 
BEQ 
: INFORM THE 
0000006 2s: MOV 
0000006 CALL 
0000006 MOV 
0000006 CALL 
000144G MOV 
0000006 CALL 
0000006 MOV 
0000006 cat 
000131 0000006 cve 
0000006 TST8 
BNE 
0000006 MOV 
0000006 cm 
000131 0000006 yee 
0000006 INCB 
000000° 3$: MOV 
0000006 CALL 
000126 CALL 


: OF AN RM80 DISK 
: INPUTS: 


SSWINT 
1$ 
SRDSSF 


SRDBSF 
sssF +10, SREVNM 


1$ 
#MSG1R8,RO 
SPRMPT 
DATE 

8$ 

SSWLST 

es 


SRMBOL 
SSWFMT 
7$ 


OPERATOR THAT DATA 


#SMSG23,R3 
UN 


7$ 

#°Y ,SBUFRX 
SSWINT 
#SMSGRB ,RO 
SPRMPT 


6$ 

#°Y ,SBUFRX 
6$ 

$SWMOD 
#MSG1R8,RO 
SPRMPT 


DATE 


DISK PARAMETERS SET TO ZERO 


SEE IF = Alaa INITIALIZATION MODE 
READ &xIP SECTOR FILE 

READ BAD SECTOR FILES 
GET CURRENT REVISION NUMBER 

HAS DATE BEEN ENTERED AT LEAST ONCE ? 
BR IF YES 
okuet DATE (DD 


"MM/DD/YY 


; DISPLAY THE FILES 
FORMAT THE HDA ALSO ? 


; IF EQ, NO 
ILL BE DESTROYED 


WARNING MESSAGE ADDRESS 
STORE MESSAGE AND DEVICE/UNIT 


; ee he MESSAGE SUFFIX 


MOVE THE SUFFIX 
PRINT WARNING MESSAGE 


GET CONFIRMATION ADDRESS 
PROMPT AND GET hgh? S RESPONSE 


IF NE, R 
SEE wif SSE/BSF INITIALIZATION MODE 


IF 
GET UPDATE MODE MESSAGE 
PROMPT AND GET RESPONSE 


IF £Q, NO 
WAS RESPONSE ‘‘Y'? 

SET THE MODIFY F LAG 
"ENTER DATE (DD-MMM- 


MM YY* OR 
CONVERT USER*S ENTRY TO A BINARY DATE 


-MPM-YY) : 
THE USER = USER’S RESPONSE MAY BE EITHER: 
* OR °DD-MMM-YY" 


; CONVERT USER® S_ ENTRY TO A BINARY DATE 
; INDICATE THAT DATE HAS BEEN ENTERED ONCE 


; DISPLAY THE DEC STD 144 AND SSF FILES ? 


PROMPT THE USER ~ USER® § RESPONSE MAY BE EITHER: 
/DD/ *DD-MMM-YY" 


SEQ 0071 









; 5 0003/6 
1 ; 000402 
128 0004 

129 00041 
130 000414 
132 Gooeee 
134 000432 
135 900236 
136 000444 
137 000450 
138 000454 
139 000456 
feat 
142 0004 
148 990476 
144 74 
145 000500 
146 000504 
147 000510 
148 000514 
149 000520 
150 

151 000522 
152 


005267 


cer 


scss 
oF 


seesase 
“ 

Sa 

™N iw 


Soo 
AXXO 
ANN 


SoaSeree Se 
= 

VN “ 
Sosieetn —AnO 
NNONNNNN ONW 


: 


000120 
9000006 


G 
0000006 


0000026 0000006 


0026 
G 


4$: 


5$: 
6$: 


7$: 
8$: 


INC 
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8$ 
#MSG2RB ,RO 
SPRMPT 


; READ SKIP SECTOR FIL 
READ BAD SECTOR F 


INDICATE THAT DATE HAS BEEN ENTERED ONCE 
*HDA SERIAL NUMBER: ° 

PROMPT OPERATOR 

NUMBER OF BYTES ENTERED TO R4 

NPUT BUFFER ADDRESS 


P N ENTRY 
CORRECT THE SERIAL NUMBER ORDER 


INITIALIZE THE BAD SECTOR FILES ? 
INIT THE DEC STD 144 AND SKIP SECTOR FILES 


GET UPDATE MODE oO 


ILES 
FORMAT THE DISK 


; VERIFY THE DISK FORMAT 
; GET ADDRESS OF MESSAGE 
; PRINT "DONE !° MESSAGE 


; ONCE DATE FLAG 


SEQ 0072 


J 6 
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154 3+ 

135 t **=DATE=CONVERT USER'S RESPONSE TO BINARY DATE 

157 : THIS ROUTINE WILL CONVERT THE ASCII DATE INPUTTED 

158 : INTO '$BUFRX* AS EITHER CMM/DD/YY) OR CDD-MMM-YY] AND 

159 : CONVERT IT TO BINARY AND PUT IT IN DATE PARAMETER 

160 : STORAGE AREA. 

162 > INPUTS: 

198 ; "$BUFRX" CONTAINS ASCII STRING FOR DATE 

165 : OUTPUTS: 

166 : DPARS CONTAINS BINARY REPRESENTATION 

167 : OF DATE 

168 3 

1% - 

171 000524 012701 000154" DATE: MOV #DPARS ,R1 : POINT TO PARAMTER AREA 

Ze 000530 012702 000003 MOV #3,R2 : SET WORD COUNT 

173 000534 005021 1$ CLR (RiD+ : ZERO NEXT WORD 

174 000536 005302 DEC R2 ; ? 

175 000540 001375 BNE 1$ : IF NE NO 

176 000542 012700 0000006 MOV #SBUFRX,RO : GET BUFFER FOR USER'S RESPONSE 

177 000546 004767 0000006 2s: CALL  $CDTB : GET A R 

178 000552 120227 000057 CMPB SS séR2,, #"/ : TERMINATOR FOR DATE ? 

179 000556 001466 BEQ 10$ : IF EQ YES 

180 000560 120227 000055 CMPBséR2,, #*= + POSSIBLY DIFFERENT FORMAT ? 

181 000564 001404 BEQ 3 : IF EQ YES 

182 000566 012700 0000006 MOV #SMSG2,RO + NO, SYNTAX ERROR 

183 000572 000167 0000006 JMP SMSGWR : EXIT WITH WARNING STATUS 

185 : GET DATE FIELD IN FORMAT CDD-MMM-YY] 

187 000576 012705 000144 3$: MOV #DATLMT+4,R5 °  ; POINT TO DAY LIMITS 

188 000602 004767 000256 CALL =‘ TMTSTL : TEST LIMITS 

189 000606 103446 BCS 9$ : IF CS ERROR 

190 000610 010167 177342 MOV R1,DPARS+2 t STORE DAY 

191 000614 010003 MOV RO. : COPY BUFFER POINTER 

192 000616 012701 000056° MOV #DAT,R1 + POINT TO VALID MONTH NAMES 

193 000622 005002 CLR R2 + ZERO MONTH NUMBER 

194 000624 105711 4$: TSTB ss (1) : END OF E ? 

195 000626 001411 BEQ : IF EQ YES, GOOD MONTH 

196 000630 122021 CMPB = (RO) +, (R1) + + NO, CHECK NEXT CHARACTER 

197 000632 001774 BEQ : LOOP IF GOOD MATCH 

198 000634 105721 5$: TSTB = (R11) + : END OF MONTH STRING ? 

199 000636 001376 BNE : IF NE NO, LOOP 

00 000640 010300 MOV R3,RO : YES, RESET BUFFER POINTER 
1 000642 005202 INC : UPDATE MONTH INDEX 

202 000644 105711 TSTB = (R11) 3 E ? 

203 000646 001366 E 4$ : IF NE NO, LOOP 

204 000650 000425 BR 9$ : ZERO IS END OF MONTH LIST 

205 000652 909202 6$: INC Re : INCREMENT MONTH INDEX 

206 000654 010267 177274 MOV R2,DPARS : SAVE IT 

207 000660 112008 MOVB = (RO) +, R2 : GET NEXT CHARACTER 

208 000662 120227 000055 CMPBséR2,,#*= + LEGAL TERMINATOR ? 

209 000666 001401 BEQ 7$ : IF EO Y 

210 000670 000415 BR 9$ + NO, IT'S A SYNTAX ERROR 





a 


6 
FMTR8O = FORMAT/VERIFY RM8O DIS MACRO M1113 12-JAN-82 11:04 PAGE 3-1 


$13 o00672 

$6 Ss 
14 000706 
15 000710 
16 000714 
1 ports 
18 0007 

219 000724 
220 0007 

221 

222 

223 

224 000734 

225 000740 

226 000744 

227 000750 

228 000752 

229 000754 

230 000760 

231 000762 

232 000766 

233 000772 

234 000774 

235 000776 

236 001002 

237 001004 

238 001010 

239 001014 
240 001016 

241 001020 

sts 001024 
243 001032 
244 001036 
245 001042 

246 001044 

247 001046 

248 001050 

249 001052 
250 001056 

251 001062 

252 

e 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 


S22 
par 
rr 


-o-— 
a) 
—Oow 


essatte 


a 


= WnN-—N 


— _ 
Suveeessstnce 
es 
NWWWAI NINA NO NWS NES NU 


00130" 


156 
000116 
177236 


0000006 
0000006 


000G 
000050 
000154" 
000116 000004 
000004 


000004 


000004 
000002 


7$: 


8$: 
9S: 


$CDTB 
#DATLMT+10,R5 
TMTSTL 


9$ 

R1 ,ABASYR 
9$ 
R1,DPARS+4 
#SMSG2,RO 
SMSGWR 


. 
o 
7 
a 
7 
o 
. 
& 
os 
. 
a 
© 
° 
° 
e 
e 


YES, GET YEAR 
GET LIMIT ON YEAR 
Ha LIMIT ON YEAR 


F CS ERROR 
; CHECK YEAR ENTRY 


IF LO, INVALID YEAR ENTRY 
SAVE YEAR 


EXIT 
GET SYNTAX ERROR MESSAGE 
EXIT WITH WARNING STATUS 


; GET DATE FIELD IN FORMAT CMM/DD/YYJ 


Vv 
12$: MOV #DPARS ,R3 


. DATE STORAGE FIELD 
SUB #BASYR ,4(R3) 


10$: MOV #DPARS .R3 3 POINT TO DATE STORAGE FIELD 
MOV #DATLMT RS : GET POINTER TO MONTH LIMITS 
11$: CALL TMTSTL 3 TEST LIMITS 
BCS 9$ : IF CS ERROR, OUT OF BOUNDS 
MOV R1,(R3)+ : STORE IT 
CMPB R2,4°/ 3 GOOD TERMINATOR ? 
BNE 3 IF _NE NO, SYNTAX ERROR 
CALL $CDTB 3 GET NEXT TWO DIGITS 
CALL TMTSTL : TEST LIMITS 
BCS 9$ : IF CS ERROR, OUT OF BOUNDS 
MOV R1,(R3)+ : STOR 
CMPB R2,4°/ 3 GOOD TERMINATOR ? 
BNE 9$ 3 IF 
CALL CDTB 3 GET NEXT TWO DIGITS 
CALL TMTSTL : TEST LIMITS 
BCS 9$ : IF CS ERROR, OUT OF BOUNDS 
MO R1,(R3) : STORE IT 
3 SUBTRACT THE STARTING YEAR 
SWAB 4(R3) 3 POSITION YEAR 
ASL 4(R3) : SHIFT INTO BITS 9 = 15 
SWAB (R3) 3 POSITION MONTH 
ASR (R3) ; SHIFT INTO BITS 5 - 8 
ASR (R3) : 
ASR (R3) ; 
BIS 4(R3), (R3) : MERGE YEAR WITH MONTH 
ae Funes 2(R3),{R3) ; MERGE DAY 


+ 
; **-TMTSTL - TEST DATE LIMITS 


THIS ROUTINE WILL TEST THE DATE AGAINST LIMITS SPECIFIED 
BY A TWO WORD LIMIT ENTRY. 


INPUTS: 
; R 


= 
“uu 


CONTAINS VALUE TO BE TESTED 
POINTS TO TWO WORD LIMIT ENTRY 
WORD 1 = LOW LIMIT OF VALUE 
WORD 2 = HIGH LIMIT OF VALUE 


; OUTPUTS: 
R1 


UNCHANGED 
RS UPDATED TO NEXT LIMIT ENTRY 
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3 cc = GOOD VALUE, 

209 : CS = BAD VALUE, 
He a 

rg OO pee 4 125 TMTSTL: CMP R1,(R5)+ 
74 001 404 BLT 1$ 

75 001070 020125 CMP R1,(R5)+ 
76 001072 00 BGT 1$ 

77 001074 000241 CLC 

78 001076 000207 RETURN 

79 001100 000261 1$: SEC 

seo 001102 000207 RETURN 
282 000001 ~END 


LOW<=X<=-HIGH 
LOW>X OR X>HIGH 


VALUE LOWER THAN LOW LIMIT ? 


: IS 

: IF LT YES 

3 IS IT HIGHER THAN HIGH LIMIT ? 
: IF GT YES 

: NO, GOO VALUE 

3 EXIT 

: SET ERROR FLAG 

: EXIT 


SEQ 0075 


a SS SSS SSS ss ss 


4 
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SYMBOL TABLE 


BASYR = goog G MSG2R8 000032R 
CR = 1 TMTSTL 1064R 
DAT 000056R SBUF = teeeee GX 
DATE 000524R SBUFRX= **eee8 GX 
DATLMT 00014 SCDTB = s#eae% GX 
DPARS 000154RG SMOVE = *e#eane GX 
LF = 1 SMSGRB= *eeeee GX 
MSG1R8 SGWR= s*een% GX 
- ABS. 

1104 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 456 WORDS ( 2 PAGES) 
peat MEMORY: rpae WORDS ( 30 PAGES) 


SED_TIME: 00 2 
C300, 20]FMTR80,C300, 30JFMTR80=[300, 10JFMTR8O 





$MSG12= 
$MSG2_= 
ae 


akanee GX 
keene GX 
aeenee GX 
aeanae GX 
aeaane GX 
tkanee GX 
teanne GX 
aenkek GX 


aeneee GX 
ananee GX 
000162RE 
aanenk GX 
aeeaee GX 
aanane GX 


OM= saenee GX 


keaane GX 


-DD2CT= 


genene 
genere 
geaeee 
genrene 
Reaeaen 
genene 
Raeeee 
keener 


RLLLLLLQ 
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TITLE FMTR8F = RM8O FORMAT MODULE 
- IDENT /01.00/ 


COPYRIGHT (C) 1980 
DIGITAL EQUIPMEN? CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
T ANY OTHER 
T MAY NO D E AVAI 
ANY OTHER PERSON EXCEPT FOR 1] SUCH SYSTEM AND TO ONE 
E TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL _ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


A 
m 
nn 
“4 
o 
a 
= 
m 
wn 
m 
a= 
ae 
o 
Mm 
z 
“” 
m 
— 


VERSION 01.00 


C. HESS 17-AUG~80 
M. LEAVITT 14=JAN-81 





Py ot ot ot ate e RMN ONfeN 
LONGORIA DOCSIS URUN IS SRV ORUN MS Senor eOOONOUsWR 


eNLIST BEX 
000000 104 122 111 MSGSOR: .ASCIZ /DRIVE ERROR DURING FORMAT/ 
000032 106 117 122 MSGSIR: .ASCIZ /FORMAT CONTINUING/ 
000054 106 117 \s¢ SGSSR: .ASCIZ /FORMAT TERMINATING/ 
000077 12 115 1 MSG61R: .ASCIZ /RMCS1=/ 
00198 12 115 103 MSG62R: .ASCIZ /RMCS2=/ 
00011 12 115 105 MSG635R: .ASCIZ /RMERI= 
000124 12 115 105 MSG64R: .ASCIZ /RMER2=/ 
000133 i$ 115 104 MSG65R: .ASCIZ /RMDA= 
000141 124 1s 101 MSG66R: .ASCIZ /TRACK RE-WRITE sue cesses 
000173 124 1 107 MSG67R: .ASCIZ /TRACK RE-WRITE FAILURE/ 
000222 123 12 103 MSG68R: .ASCIZ 7SUCCESSIVE SEEK ERRORS/ 
-EVEN 
3 WORKING LOCATIONS 
50 000252 000000 SERCS1: .WORD 0 : CONTROL STATUS REG 1 
2) 000254 000000 SERCS2: .WORD 0 3 STATUS REG 2 
§ pong 28 000000 SERER1: .WORD 0 3 ERROR REGISTER 1 
53 0002 000000 SERER2: .WORD 0 : ERROR REGISTER 
54 000262 000000 SERDA: .WORD 8 3 TRACK/SECTOR ADDRESS 
2? 000264 000000 SFLBUF: .WORD ; BUFFER ADDRESS 





ABZBZBZBZFrAamag wan 


reamoc mm =« 
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58 3¢ 

59 3 **-SRBOTF-FORMAT A SINGLE TRACK 

60 + &*=$RBOSF=FORMAT BSF, SSF AND ALTERNATE DEC144 CYLINDERS 

e  &*=$RMBOF=FORMAT ALL CHL INDERS OR FE CYLINDERS 

6 : 

64 : THIS ROUTINE WILL FORMAT AN RM8O DISK PACK. FULL TRACKS 

65 : (32. SECTORS) OF HEADERS ARE WRITTEN UNTIL THE MAXIMUM 

66 t DISK ADDRESS IS REACHED. 

68 3: INPUTS: 

69 : DISK PARAMETERS SET TO ZERO 

70 : MDBSF UDBSF, & SSE READ VALIDATED AND IN MEMORY 

71 : P STRK SSEC P FOR 'S$R8OTF* ENT 

ie ; SORAAT FE EyLINDERS” ONLY IF 'SSWEFE= yey 

7% : OUTPUTS: 

75 é NONE. 

6 3 

8 : FORMAT BSF(558.,13.), SSF(559.,0) AND ALTERNATE DEC144(559.,1) TRACKS 
80 000266 012767 001056 000000G SR80SF::MOV ~ #558. S$CYL ; STARTING CYLINDER 

81 000274 012767 000015 0000006 MOV 15, .$1R RK ; 

82 000302 004767 000212 CALL DSK ¢ FORMAT THE DEC S1D 144 TRACK 
83 000306 012767 001057 0000006 MOV #939. $C¥L ; STARTING CYLINDER 

84 000314 005067 0000006 CLR : TRACK | 

85 000320 004767 000174 CALL ENTDsK ; FORMAT THE SSF TRACK 

86 000324 005267 0000006 INC $TR > FORMAT THE AP TERNATE DEC144 TRACK 
+4 3; FORMAT A SINGLE TRACK 

90 000330 004767 0000006 SRBOTF::CALL § $MVPAT : LOAD THE DATA PATTERN 

4 000334 000471 BR FAMTDSK 3: FORMAT THE TRACK S$CYL,$TRK 
93 

% : FORMAT ALL CYLINDERS (0,0 TO 560.,13.) OR BSF/SSF/FE CYLINDERS (558.,13.- 560.,13.) 
96 000336 005001 SRMBOF::CLR R1 : SET NULL CARRIAGE CONTROL 

97 000340 0127 000006 MOV #SMSG6,RO : TELL OPERATOR 

98 000344 004767 0000006 CALL § $PRNTO : "START FORMATTING' 

99 000350 905001 CLR R1 : SET NULL CARRIAGE CONTROL 

100 000352 105767 0000006 TSTB © SSWFFE : FORMAT FE CYLINDERS ONLY ? 

107 000356 901011 BNE : BR IF YES 

108 000360 012 9070006 MOV #SMSG6A,RO ; TELL OPERATOR WHICH CYLINDERS 
103 000364 00476 6000 CALL § $PRNTO : * “ALL CYLINDER 

104 090370 005067 0000006 CLR SCYL 3 START CYLINDER= 

105 000374 005067 000000G CLR $TRK + START TRACK= 

106 000400 000412 BR 2$ : FORMAT THE TRACKS 

108 000402 012700 0000006 1$: MOV #SMSG6B,RO : TELL OPERATOR WHICH CYLINDERS 
109 0004 767 0900006 CALL RNT : * FE CYLINDERS- 

110 00041 012767 001 36 0000006 MOV #558. ,SCYL ; START CYLIND R=558. (BSF/SSF/FE CYLINDERS) 
111 000420 012767 15 0000006 MOV #13. STRK : START TRACK= 

112 0004e6 004767 $: CALL  $MVPAT t LOAD THE DATA PATTERN 

113 000432 004767 90006 $: CALL =‘ FMTDSK t FORMAT THE DISK 

114 000436 004767 CALL  $TSTMX + UPDATE DISK ADDRESSES 
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115 000442 103001 4$ : IF CS, NOT FINSIHED, ZLSE 
116 000444 000207 RETURN : EXIT FORMAT 
118 000446 022767 001057 0000006 4s: CMP #559. ,$CYL : WAS SSF JUST WRITTEN ? 
11 54 1366 BNE : BR 
120 900456 022767 000002 0000006 CMP #2,$TRK + WERE BSF/SSF TRACKS JUST WRITTEN ? 
121 64 001362 BNE $ : BR IF 
1 2 000466 016746 MOV SCYL,-(SP) + SAVE CURRENT CYLINDER ADDRESS 
123 0004 016746 0000006 MOV $TRK.=(SP) : SAVE CURRENT TRACK ADDRESS 
124 000476 004767 0000006 CALL  $WTSSF : RE-WRITE THE SSF 
125 000502 004767 0900006 CALL  $WTBSF + REWRITE THE DEC144 TRKS (PRIMARY AND SECONDARY) 
126 900506 01267 0000006 MOV (SP)+,$TRK + RESTORE TRACK ADDRESS 
127 000512 012667 0000006 MOV (SP)+,$CYL + RESTORE CYLINDER ADDRESS 
i 8 000516 000745 BR 3$ t WRITE NEXT TRACK 
13¢ ; ACTUAL FORMAT ROUTINE 
132 000520 012703 0000006 FMTDSK: MOV #SPHYDV,R3 : "FORMAT® DEVICE PARAMETERS 
133 900524 004767 0000006 CALL  $UP : UPDATE THE MAX 
134 000530 012700 0000006 MOV #SBUF ,RO : RELOAD THE BUFFER ADDRESS 
135 000534 105067 0000006 CLRB = SKPFRE + CLEAR SKIP SECTOR FLA 
136 000540 005067 0000006 CLR SSEC + START AT SECTOR ZERO 
138 ; CREATE THE HEADER PATTERN 
140 000544 767 0000006 1$: CALL §_GENHDR : GENERATE HEADER PATTERN 
141 000550 005267 0000006 INC SEC t UPDATE SECTOR NUMBER 
142 000554 026767 0000006 0000006 CMP SSEC, SMXSEC t ALL SECTORS DONE? 
143 000562 001370 BNE 1$ : IF NE NO 
144 000564 0000006 CLR $SEC : RESET SECTOR NUMBER 
146 y NOW WRITE THE HEADER AND DATA ONTO THE DISK. 
148 000570 016767 0000006 0000006 2$: MOV TRKSZ,$XFRSZ _; LOAD BYTE COUNT FOR ONE TRACK 
149 000576 004767 0000006 CALL $CVTDA + CONVERT DISK ADDRESS TO LBN 
150 000602 012705 0000006 MOV #SBUF .RS t SET BUFFER ADDRESS 
151 004767 0000006 3$: CALL  $DSKWH + WRITE HEADER/DATA FOR THIS TRACK 
13¢ 000612 005767 0000006 4$: TST SRGBUF 3 ANY DISK ERRORS? 
153 000616 100401 BMI : IF MI, YES 
134 000620 000207 RETURN + OTHERWISE, RETURN 
136 : HANDLE THE ERROR 
158 000622 032767 004000 0000146 5s: BIT #4000, $RGBUF+14 ; WRITE LOCK ERROR? 
159 000630 001402 BEQ + IF EQ NO 
160 000632 000167 0000006 JMP SWLKER t INFORM THE USER 
162 : SEND ERROR MESSAGE 
164 000636 004767 000276 6$: CALL SFLRGS : SAVE FAILI 
165 are 12700 000000° MOV RSOR.RO : "DRIVE ERROR DURING FORMAT’ 
166 000646 12701 000060 MOV #60,R1 t CARRIAGE CONTROL CHARACTER 
167 00065 767 CALL  $PRNTO + SEND MESSAGE 
168 000656 004767 CALL § $MGPRE t SEND DISK ADDRESSES 
159 ae stats 3 eae SOE eae ARROR LIMIT NOT EXCEEDED 
171 $0060 012700 0000006 MOV #$MSG45,RO ; TERNOR LIMIT EXCEEDED' 
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000746 
98 000752 
99 000756 
200 000762 
201 000766 
202 000772 
203 000776 
204 001002 
205 001006 
206 001012 
207 001016 
208 001022 
209 OO 068 
210 001032 
211 001036 
$i¢ 001042 
2135 001046 
214 001052 
215 001056 
216 
217 
218 
219 001062 
220 001066 
221 001072 
$56 001076 
223 001102 
224 B51 198 
225 00111 
226 001116 
227 001122 
228 001126 
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VV 
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So 
= 
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MOV 
CALL 
MOV 
CALL 
JMP 
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ooo Rl 
#MSG55R ,RO 
SPRINT 
SFMTEX 





; PRINT_THE MESSAGE 
: EXIT THE FORMATTER 


3; IF THE ERROR IS A ‘SKI", DO A RECAL 
7$: MOV 


CALL 
BIT 
BEQ 
CALL 
BR 


#MSG51R,RO 


SPRIN 
#40000 , SRGBUF +42 


SHOMSK 
2s 


3 ‘FORMAT CONTINUING’ 
3 SEND MESSAGE 


. 3; SEE IF ERROR WAS A SEEK INCOMPLETE 
F ENTRY POINT FOR RETRY WITH RECAL 
3; TRY AGAIN 


#%=-S$MGPRE=-PREPARE AND SEND DISK ADDRESSES TO OPERATOR 


TS: 
SFLCYL,SFLTRK,SFLSEC LOADED 


sADDRESS OF MESSAGE 
; CR-LF 


3GET RMCS1_AND 
ZADDRESS OF MESSAGE 
S"RMSCT = XXXXX 
3GET RMCS2_AND 
ZADDRESS OF MESSAGE 
3RMSC2 = _XXXXX 
3GET RMER1 


AND 
sADDRESS OF MESSAGE 
3°'RMER1T = XXXXX"" 


3GET RMER2 AND 
sADDRESS OF MESSAGE 
3" RMER2 = XXXXX 

; RMDA_AND 
sADDRESS OF MESSAGE 
5" = XXXXX"" 
sADDRESS OF MESSAGE 
2 CRLF 


sPRINT ERROR POSITION, CYLINDER, TRACK AND SECTOR IN DECIMAL 


OUTPUTS: 

ERROR MESSAGE 

SMGPRE : : MOV #SCR,RO 
CALL $PRINT 
MOV SERCS1,R1 
MOV #MSG61R,R3 
CALL $EROCT 
MOV SERCS R1 
MOV #MSG6OR,R3 
CALL  $EROCT 
MOV SERER1,R1 
MOV #MSG63R,R3 
CALL $EROCT 
MOV SERER2,R1 
MOV #MSG64R,R3 
CALL  $EROCT 
MOV SERDA,R1 
MOV #MSG65R,R3 
CALL  $EROCT 
MOV #SCR,RO 
CALL  $PRINT 
MOV SFLCYL,R1 
MOV #SMSG15, 
CALL 
MOV SFLTRK.R1 
MOV #SMSG16,R3 
CALL OUT 
MOV SFLSEC,R1 
MOV #SMSG17,R3 
CALL  $EROUT 
MOV #SCR,RO 


3GET FAILING CYLINDER AND 
;ADDRESS OF MESSAGE 
s“"CYLINDER = XXX. 

3GET FAILING TRACK AND 
sADDRESS OF MESSAGE 
s"'TRACK = XX. 

3GET FAILING SECTOR AND 
sADDRESS OF MESSAGE 

3; ““SECTOR = XX. 

3GET ADDRESS OF MESSAGE 
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RMDA 
CLEAR ERROR INDICATOR 


$3 001132 004767 000000G CALL SPRINT 3; CRLF 
, 0011 000207 RETURN 
3+ 
‘ 3 %%-$FLRGS-ROUTINE TO SAVE FAILING DISK ADDRESSES AND REGISTERS 
35 3; INPUTS 
$38 3 ScYL. STRK SET TO CURRENT CYLINDER AND TRACK 
$34 : SRGBUF CONTAINS IMAGE OF LATEST H/W REGS (SET BY DRIVER) 
239 : OUTPUTS: 
40 3 sence) = CONTROL STATUS REG 1 
41 : SERCS2 = CONTROL “7 S REG 2 
24 8 SERERI - Ean od ace 3 
24 3 ERER2 = ERROR REG 2 
244 3 ERDA = SAR TSECTOR REG 
245 3 SFLCYL = FAILING CYLINDER 
246 3 SFLTRK = FAILING TRACK 
744 $ SFLSEC = FAILING SECTOR 
249 ‘ 
250 001140 016705 000006G SFLRGS: :MOV SRGBUF +6,R5 3; RECOVER FAILING SECTOR ADDRESS 
251 001144 042705 177740 BIC of 40, RS ; ISOLATE SECTOR NO. 
$26 001150 001004 BNE : 
25 Opt 128 012767 000037 000000G MOV p31. .SFLSEC 3: MUST HAVE BEEN LAST SECTOR 
254 0011 000403 BR 2s ; 
255 001162 005305 1$: DEC RS 3 BACKUP ONE 
256 001164 010567 0000006 MOV = RS, SFLSEC ; SET SECTOR NUMBER 
257 001170 016767 000000G 0000006 2$: MOV SCYL.SFLCYL ; i° CYLINDER 
$26 001176 016767 000000G 000000G MOV STRK,SFLTRK 3 
son ; SAVE THE RM80 REGISTERS 
262 001204 705 0000006 MOV 3; REGISTER BUFFER 
00 7 3 RMCS1 
00 3 were 
7 3: RMERI 
3 RMER2 


FMTREF = A+ y FORMAT MODULE MACRO M1113 12-JAN-82 11:04 


SYMBOL T 
FMTDSK saan SKPFRE= seeee8 GX 
GENHDR= seeeee GX TRKSZ = seeane GX 
MSGSOR gooooen SBUF = t#eane GX 
MSGS1R R SCR = weeeee GX 
MSG53R 54R SCVTIDA= *eeee% GX 
MSG61R 77R SCYL = *#eawe GX 
MSG62R AgGR SDSKWH= seeeee GX 
MSG6 115R SERCS1 000252R 
G64R 000124R SERCS2 000254R 
MSG65R 000153R ERDA 000262R 
000141R SERER1 000256R 
MSG6 000173R SERER2 000260R 
mS 000222R 


G68R 
° ABS. 000 
Oo ose 001 


ERRORS DETECTED: 0 


pL aahh MEMORY USED: 522 WORDS  ( 3 PAGES) 
pre 3 hee 7942 WORDS ( 30 PAGES) 

ELAPSED 00:00:11 

(300, SOIFMTRAF C300, 30JFMTR8&F=C300, 10JFMTREF 


SEROCT= 


PAGE 2-4 


kaekaake GX 
kkkkee GX 
00264R 

keakne GX 
001140RG 
aeakae GX 
keeake GX 
keakae GX 
kekaake GX 
000746RG 
kkakke GX 
keaake GX 


S$MSG17= seea%e GX 
SMSG45= eeenee GX 
S$MSG6 = seeee8 GX 
SMSG6A= *eeeee GX 
SMSG6B= *eeae% GX 
SMVPAT= saanae GX 
SMXSEC= seeeee GX 
SPHYDV= seeeee GX 
SPRINT= seaee% GX 
SPRNTO= seanee GX 


RRERKK 


SRGBUF = GX 
SRMBOF 000336RG 


Su 
SXFRSZ= 


Ba sun 


eeanee GX 
aeanee GX 
kaeaaee GX 
aearee GX 
Renene GX 
keener GX 
aaeneae GX 
aeaner GX 
keener GX 
kenene GX 
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ITLE FMTR8V = VERIFY RM80 DISKS 
- IDENT /01.00/ 


* mag 


COPYRIGHT (C) 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
F ABOVE F TWARE ANY OTHER 


O ANY PERSON 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
; THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
VERSION 01.00 


4 - HESS 22-AUG~80 
M. LEAVITT 14-JAN-81 


NOAVUESWN SO OONAUSWN HOV OVNOAUE WN 


5 eNLIST BEX 
3 Coos 126 105 122 MSG2V: .ASCIZ /VERIFY_ TERMINATING/ 
00002 116 117 116 MSG3V: .ASCIZ /NON DATA ERROR DURING VERIFY/ 
000060 126 105 122 MSG4V: .ASCIZ /VERIFY CONTINUING/ 
000102 110 105 101 yak eASCIZ @HEADER/DATA ERROR DURING VERIFY@ 
9 : 
? : WORKING LOCATIONS 
5 000142 000000 TRKER: .WORD 9 3 TRACK ERROR COUNT 
44 000144 SECTBL: .BLKB 2. 3 SECTOR ERROR TABLE 
45 000204 000000 LASTER: . 0 : Ha! SECTOR IN ERROR DURING CURRENT VERIFICATION 
47 000206 000000 XFRSEC: .WORD 8 ; NUMBER OF SECTORS ACTUALLY VERIFIED 
48 000210 000000 ENDSEC: .WORD 3 oie SECTOR RESS 
49 000212 000000 BEGSEC: .WORD 0 : STARTING SECTOR ADDRESS 
50 000214 000000 VFYCNT: .WORD 0 3 VERIFICATION PASSES 


w 
— 
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53 3+ 

2¢ ; t#-SRMBOV-VERIFICATION ROUTINE FOR RM8O DISK PACKS 

56 ; TRACK COMPLETE <= 1 

« ; REPEAT PROCESS UNTIL PHYSICAL DISK ADDRESS .€0. (561,0,0) (STSTMX) 
58 ce TRACK COMPLETE . 

59 : THEN START PECTOR <= 0 

60 : END SECTOR <= SMXSEC 

61 > ‘TRACK ERROR COUNT CTRKER') <= 0 

62 + CLEAR SECTOR ERROR TABLE 

6 : GENERATE TRACK BUFFER 

64 : WORD COUNT <= ((END SECTOR? =(START SECTOR) +1258 

65 ; VERIFICATION PASS COUNT ('VFYCNT') <= SVERIF 

68 3 —s hon CHECK UNTIL (° WEYeNT® eon 0 .OR. SECTORS TRANSFERED .EQ. 0) 
68 3 THEN CALL SCKERR 

69 : IF ER ROR IS A NON DATA ERROR 

70 : THEN RETRY ERROR 

71 5 *VFYCNT® = *VFYCNT' 

7 3 ENDREPEAT 

7. $ IF TRKER .NE. a 

7% : THEN CALL "VFYSEC' 

75 3 REGENERATE THE TRACK BUFFER (GENHDR) 

7% : T TRACK FROM SECTOR 0 TO SECTOR 31 

77 + IF ENDSEC .NE. 

78 3 THEN START SECTOR <= LAST ERROR SECTOR + 1 

79 : END SECTOR <= 

80 : ELSE PHYSICAL ADDRESS = PHYSICAL ADDRESS + 32 SECTORS 
81 > ENDREPEAT 

82 : RE-WRITE BSF & SSF 

83 : EOJ 

84 : 

Be a 

87 000216 012700 9000006 SRMBOV: :MOV #$MSG11,RO0 : GET VERIFICATION STARTING MESSAGE 
88 000222 00476 CALL $PRIN + PRINT 

89 000. s pies 0000006 MOV #SPHYDV,R3 3: PHYSICAL DEVICE GEOMETRY POINTER 
90 000232 004767 0000006 CALL  $UPDMX > UPDATE THE LIMITS 

91 000236 004767 0000006 CALL § $HOMSK t ISSUE A RECAL 

38 000242 105767 0000006 TSTB SSWFFE 3; VERIFY FE CYLINDERS ONLY ? 

93 000246 001005 BNE 1$ : BR IF 

94 000250 005067 0000006 CLR SCYL + STARTING CYLINDER=0 

95 Bons 28 005067 0000006 oh o : STARTING TRACK=0 

3 Oode62 1 $08 001056 0000006 1$: MOV #558. ,SCYL : STARTING CYLINDER=558. 

98 000 12767 15 0000006 MOV #13. ,$TRK t STARTING TRACK=13. 

99 000 26 5067 $ CLR SEC t STARTING SECTOR=0 

100 000 005067 1 6 CLR t CLEAR THE TRACK ERROR COUNT 

101 000 5067 177700 CLR BEGSEC + CLEAR THE STARTING SECTOR 

108 000312 016767 9000006 177670 MOV SMXSEC,ENDSEC : LOAD THE ENDING SECTOR ADDRESS 
103 0003 5367 177664 DEC ENDSEC t CORRECT THE V 

104 000324 767 CALL  $MVPAT + LOAD THE DATA PATTERN 

105 0005 asian 001056 3S: COE SCYL,#558. : Is THs THE BSF CYLINDER ADDRESS ? 
199 0 G26729 0000006 000015 CMP STRK,#13. t IS THIS THE BSF TRACK ADDRESS ? 
108 ; 1012 BNE : BR IF NO 

109 000350 016746 0000006 MOV $CYL,-(SP) ? SAVE CURRENT CYLINDER ADDRESS 


SEQ 0084 
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| 
110 000354 16746 MOV $TRK,=(SP) : SAVE CURRENT TRACK ADDRESS | 
111 900 76 CALL $R80SF + RE=FORMAT BSF/SSF HEADERS AND DATA 
Ne 12667 MOV (SP)+,$TRK t RESTORE TRACK ADDRESS 
11 900 12667 MOV (SP)+.$CYL t RESTORE CYLINDER ADDRESS 
11% 000574 103067 4$:  CLRB  —- SKPFRE 3 CLEAR SKIPPED SECTOR FLAG 
115 900400 12701 290020 5$: MOV #16.,R1 + LOOP CONSTANT | 
116 0004 12700 600144" MOV #SECTBL RO + TABLE ADDRESS 
11 19 90 0 6$: CLR RO)+ : CLEAR TWO LOCATIONS 
‘118 00061 5301 DEC t DECREMENT THE LOOP COUNTER 
119 000414 001 3 BNE rs} : IF NE, NOT FINI 
120 000416 Mig 6 177570 MOVB $VERIF,VFYCNT : LOAD THE VERIFICATION COUNT 
121 000424 01 700 7$: MOV #SBUF ,RO 3 SUFFER ADDRESS 
1 ¢ 0004 016767 177556 0000006 MOV BEGSEC ,$SEC : LOAD THE SECTOR ADDRESS 
123 0004 767 0000006 8$: CALL ENHDR + GENERATE A HEADER 
124 00044 5267 0000006 N SEC : INCREMENT THE SECTOR 
125 000446 026767 000000G 177534 CMP $SEC,ENDSEC : SEE IF FINI 
126 000454 101770 BLOS $ : IF LOS, NO 
I 000456 016767 177530 0000006 9$: MOV BEGSEC ,$SEC : RESET THE SECTOR ADDRESS 
128 000464 016700 177520 MOV ENDSEC,RO t ENDING SECTOR ADDRESS | 
129 000470 166700 177516 SUB BEGSEC.RO ; SUBTRACT STARTING ADDR 
130 000474 903200 INC R + ALLOW A SINGLE SECTOR TRANSFER 
131 000476 012701 001004 MOV #516. ,R1 : SECTOR (INCLUDING HEADER) SIZE(IN BYTES) 
132 000502 004767 0000006 CALL : CALCULATE THE BYTE COUNT 
13 900506 010167 0000006 MOV R1,$XFRSZ : LOAD THE BYTE COUNT 
134 000512 004767 0000006 CALL  $CVTDA t CONVERT DISK ADDRESS TO AN LBN 
135 000516 012705 0000006 10$: MOV #SBUF .RS ; BUFFER ADDRESS 
136 000522 004767 0000006 CALL  $DSkwC : WRIT K 
137 000526 005767 0000006 TST : SEE IF ANY ERRORS 
138 000532 100404 BMI 1$ : FM 
139 000534 005367 177454 DEC VFYCNT : DECREMENT THE VERIFY COUNT 
140 000540 001366 BNE : 1 NOT FIN TSHED WITH THIS 
141 : VERIFICATION P. 
14e 000542 000420 BR 13$ t SEE IF FINSIHED Meith THIS TRACK 
164 : PROCESS THE ERROR 
146 000544 004767 000344 11$: CALL  CKERR : SEE WHICH TYPE OF ERROR IT IS 
147 000550 103748 BCS : IF CS, NON-DATA ERROR - RETRY 
168 900552 3767 177430 Ist XFRSEC : SEE IF ANY SECTORS WERE TRANSFERED 
150 000560 005367 177430 DEC VFYCNT : DECREMENT THE VERIFICATION COUNT FOR THIS PASS 
151 000564 001317 7$ : IF NE TO DO 
13¢ 900566 06 BR 13$ : SEE If FINISHED WITH THE CURRENT TRACK 
153 0005 16746 177616 12$: MOV BEGSEC,-(SP) + SEE IF THE ERROR IS THE LAST SECTOR 
154 000574 005216 INC ) ; ECT VALUE FOR THE COMPARE 
13 000576 026726 0000006 CMP SMXSEC,(SP)+ =: ERROR ON SINGLE SECTOR TRANSFER BEGINNING 
138 000602 00131 BNE 7$ : IF NE, NO 
158 000604 005767 177332 13$: TST TRKER + ANY NEW ERRORS ON THIS TRACK ? 
159 900614 1404 BEQ 14$ : IF EQ, NO 
160 00061 767 124 CALL -VFYSEC : VERIFY THE SECTORS IN ERROR 
161 000616 767 CALL  $RBOTF + REFORMAT THE TRACK AND MARK NEW DEFECTS 
16¢ 16700 1 14$: MOV ENDSEC,RO : CHECK THE ENDING SECTOR 
16 6 00 INC R : CORRECT IT 
16% 0067 0000006 cA RO, SMXSEC : SEE IF FINSZHED | 
166 000636 016700 177342 MOV LASTER,RO + GET THE LAST ERROR SECTOR ADDRESS 
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167 00064 5 INC R : CORRECT VALUE 
168 CMP RO, SMXSEC : SEE IF AT MAX SECTOR 
169 5 141 BEQ : IF €0, YES 
1 5 1676 177326 177332 MOV LASTER,BEGSEC : RELOAD THE STARTING SECTOR 
171 67 177 NC BEGSEC : START WITH THE FIRST G00D SECTOR 
Ze 900664 16767 900096 177316 MOV SMXSEC,ENDSEC ; RELOAD THE ENDING SECTOR 
173 000672 005367 1 DEC ENDSEC t CORRECT THE VAL 
174 000676 BR $ : CONTINUE 
176 000700 004767 0000006 15$: CALL $TSTMX ; INCREMENT THE PHYSICAL ADDRESS 
177 000704 103411 BCS 16$ : IF FINISHED 
178 000706 1 767 177274 MOV SAXSEC, ENDSEC : ELOAD ENDING SECTOR FOR "HE TRACK 
179 000714 367 000 08° DEC NDSEC : MAKE INTO AN ADDRESS 
180 000720 005067 177266 CLR Becsec t START WITH SECTOR 0 
181 000724 000167 177400 JMP 
188 000730 004767 0000006 16$: CALL $WTSSF : RE“WRITE THE SSF 
184 000734 004767 0000006 CALL  $WTBSF + RE“WRITE THE DEC STD 144 TRACKS (PRIMARY AND 
185 + SECONDARY 
186 000740 000207 RETURN 
188 
3¢ 
189 ; **-VFYSEC-VERIFY THE SECTOR(S) IN ERROR 
191 ; THIS ROUTINE WILL REREAD THE SECTORS WHICH GAVE ERRORS DURING THE VERIFY 
192 + PASS ON THE CURRENT TRACK. ANY SECTOR FAILING DURING THE RE-READ PASS 
198 + WILL BE CONSIDERED DEFECTIVE. 
195 3 REPEAT PROCESS UNTIL TRACK ERROR COUNT (° TRKER®) .£0. 0 
196 : FIND NEXT SECTOR IN SECTOR ERROR TABLE (‘SECTBL') 
197 : REPEAT WRITE CHECK FOR SECTOR ENTRY IN 'SECTBL® 
198 ; UNTIL ('SECTBL' (SECTOR) .LT. 0) .OR. (HEADER FIELD OR DATA FIELD ERROR FOR SECTOR) 
199 ; IF "SECTBL'(SECTOR) .GE. 
200 : THEN IF NO SKIP SECTOR ON TRACK .AND. "SHDRFG' = 0 
201 : THEN PUT SECTOR IN SSF 
202 ; ELSE IF SECTOR IS NOT IN THE FE CYLINDERS 
203 ; THEN PUT SECTOR IN FEBSF 
204 ; ELSE PUT SECTOR IN UDBSF 
205 ; LAST ERROR SECTOR ON TRACK ‘LASTER’ <= CURRENT ERROR SECTOR 
206 : TRKER = TRKER - 1 
207 + ENDREPEAT 
208 3 
209 ; INPUTS: 
210 : SECTBL = CONTAINS ADDRESSES OF SECTORS IN ERROR 
211 ; SCYL,S$TRK,$SEC CONTAINS ADDRESS OF CURRENT TRACK 
gi2 : TRKER .NE. 0 
21 : 
314 : OUTPUTS: 
15 ; SECTBL CLEARED 
216 : ENTRIES MADE IN THE MDBSF,UDBSF,& SSF'S 
217 : ‘LASTER’ CONTAINS THE ADDRESS OF THE LAST SECTOR IN ERROR ON 
218 ; THE TRACK 
319 : 
$39 ™ 
222 000742 012700 177777 VFYSEC: MOV #-1,R0 : USE RO AS THE INDEX INTO "SECTBL" 
223 000746 005200 1$: INC RO * INCREMENT THE INDEX 


4 0007 


S8338 
FRENSSSES 


Sssss 


SRVEREUNILSSBVARG 


nN mononoern 
RR yyy mrrr 
WSWN=—O 
FEELS 
maw 
ANS 
~~ =O 


& 
S888 S8SSSSSSSSSSSsSsss 


aed me da ed te 


“<= OO 


—— 
NORS No 


POPINMINDPYNPoNoNoNfoNnofunn 
UMAAVIVIMIMA SS & 
WONOAULSWN—OOen 


wu 


260 


Ot 7re 


<Ss5 

oN 
ano 
~~ 


S832 $ 
ass 


000144" 


000144" 
000144" 


0000006 
177032 


4$: 


177100 5$: 


MOV 
DEC 


BNE 
RETURN 


FMTR8V = VERIFY RM8O DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-3 


SECTBL (RO) 


J oR 
#516. ,$XFRSZ 
SCVTDA 
SDSKWC 
$RGBUF 

48 

GRERR 
SDSTRB 
(SP)+,RO 

5$ 

(SP)+,RO 
SECTBL (RO) 
SECTBL (RO) 
$SEC,LASTER 
TRKER 


ENTRY ? 

IF €Q 

SAVE THE INDEX 

RELOAD THE SECTOR R ADDRESS 


SETUP A SECTOR IMA 

SET THE MF, UF, AND FMT16 BITS 
LOAD THE TRACK ADDRESS 

LOAD THE SECTOR ADDRESS 
BUFFER ADDRESS 
SECTOR = INCLUDING HEADER BYTE COUNT 
CONVERT THE PHYSICAL ADDRESS TO LBN 
WRITE CHECK THE SECTOR 

ANY ERR ORS ? 


IF PL 
process 7 THE ERROR 
F CS, NON-DATA ERROR = RETRY 
PUT THE SECTOR INTO THE PROPER BSF 
RESTORE THE SECTOR TABLE INDEX 


RESTORE THE SECTOR TABLE POINTER 
COUNT THE SUCESSFUL REREAD 

IF PL CON 

IREPEATED SECTOR ENTRY, ERROR WAS NOT 


SSUME CURRENT 
DECREMENT THE ERROR 
IF NE, NOT FINISHED 


* 
**=CKERR-VERIFY MODULE DEVICE ERROR ANALYSIS ROUTINE 
THIS ROUTINE WILL ANALYZE THE DISK ERROR AND REPORT THE ERROR AS REQUIRED. 


SKI 
THEN REPORT & RECALIBRATE 
ERROR 


ELSE REPORT 
IF a *- DATA 


TS: 
SRGBUF = CONTAINS THE RM80 REG 
VFYCNT = CONTROLS UPDATING ‘SE 


THEN 
$s 


ELSE ‘HD: 
IF beg 4 UN ton CVE 


tert oe SECTOR COUNT CXFRSEC 


IF *X 


THEN END- SECTOR <= (ERROR SECTOR-1 
WORD COUNT <= ((END SECTOR)=(START SECTOR +1)+1)*258 


Muy OR 
HEN RETRY UNTIL SUCESSFUL OR RETRY LIMIT EXCEEDED 
RIOT TF TRACK ERROR COUNT IN ER 


ROR COUNT (°TRKER*) 


-EQ 0 
N LAST ERROR SECTOR ("LASTER") <= ERROR SECTOR 
IF ERROR S biann HEADER 
‘ 


RR 
- ote (*SHDRFG') <= 1 


FYCNT") .NE. A. 
ROR 


3 Vay IN ER STED IN BSF 


*TRKE 


ISTER CONTENTS 
CTBL* 


ERROR IS LAST ERROR ON THIS TRACK 
COUNTER 


T LIST SSF, OR FEBSF (SSRALL) 
ic SECTOR RE | COUNT IN SECTOR ERROR TABLE (*SECTBL*) 
') = 


1 
(CERROR SECTOR)=(START SECTOR) )=1 
) 
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= ™~ 
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ssecssss 

S@ANIA SP SURI 
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RRA GVRARAX 


-—O— 00 —, 
AKSAaceo— 
GIsSlSse 


Soon 
aR =—M— 


ro 


0000006 
0000066 


110400 0000146 


0000146 
110400 


000060' 
0000006 


040000 0000426 


0000006 


RETURNS: 


CS = IF THE ERROR WAS A NON DATA ERROR 


OUTPUTS: 


*SECTBL* = UPDATED IF ERROR IS A DATA ERROR AND ‘VFYCNT® .NE. 0 


SFLRGS 
SRGBUF +6, =(SP) 
(SP) 


#°(37 (SP) : 
#°¢20000 (SP): 


1$ : 
#110400, $RGBUF +14 


SRGBUF+14,-(SP) : 
#110400,(5P) 
(SP)+ 


; SEND ERROR MESSAGE 


1$: 


2$: 


3$: 


MOV 


#MSG3V RO 
#60,R1 
$PRNT 
SMGPRE 
SSWERL 


#$MSG45 ,RO 
#60,R1 


SPRIN 3 
50000. SAGBUF +42 i 


$HOMSK 
(SP) + 


TE: 
THIS “wd WILL RETURN TO ‘SFMTEX® IF THE DRIVE EXCEEDS THE 


SAVE THE REGISTERS 
GET THE SECTOR ADDRESS 


BACK UP TO FAILING SECTOR 

JUST _IN CASE FAILING SECTOR WAS 31. 
GET RMCS1 

LEAVE ‘MCPE’ 

GET RMCS 


CLEAR ‘WCE’ 
; "OR" THE ERROR BITS FROM RMCS2 


GET RMER2 
CLEAR ‘BSE* 


; ‘OR’ WITH “MCPE’ & ae ERROR BITS 


E IF ANY ERROR BITS SET 
NE, YES = DATA ERROR 

3 TEST ‘DCK!DTE!HCRC' 
af MUST BE A DATA OR HEADER ERROR 
AR_THE DATA/HEADER ERROR BITS 
IF ANY OTHER ERROR BITS ARE SET 
EQ, NO - ERROR MUST BE A "BSE" 


"NON DATA ERROR DURING VERIFY’ 
eng) CONTROL CHARACTER 


SE SSA 
TYPE THE DEVICE REGISTERS 
SEE IF ERROR LIMIT EXCEEDED 


NE, 

"ERROR LIMIT EXCEEDED‘ 
CARRIAGE CONTROL CHARACTER 
SEND MESSAGE 
"VERIFY TERMINATING’ 
PRINT THE MESSAGE 
ABORT THE FORMATTER 
*VERIFY CONTINUING’ 
SEND MESSAGE 

: SEE IF ‘SKI’ 


DO A RECAL 
CORRECT THE STACK 
SHOW NON-DATA ERROR 


SEQ 0088 


FMTR8V = VERIFY RM8O DISKS MACRO M1113 12-JAN-82 11:04 PAGE 2-5 


O& 






RRS 
s 


mSssss S82 BESS 
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Fesosces= 
ANS — 
Yess. 
2s ACK 

ANwE NS 


& 
[SSS 


aonn— 


S2828 
SSNS 
Ao rates 


SEQ 0089 


; THE ERROR IS A DATA ERROR, PROCESS AND EXIT 


Bb0209° 0000146 


176086" 


000144" 


176544 
176544 


176534 
176524 


176536 


176512 


001004 
0000006 
0000006 


SHDRFG 
eenaren 


SHDRFG 
VF YCNT 


9$ 
(SP) ,SSEC 
$SRALL 


6$ 
tony a0 


sserhre SECTBL (RO 


#60,R1- 
SPRNTO 
SMGPRE 
#MSGGV RO 
(SP) ,XFRSEC 
BEGSEC ,XFRSEC 
BEGSEC 
(SP) ,ENDSEC 
ENDSEC 
ENDSEC,RO 
BEGSEC.RO 
RO 
#516.,R1 
SMULT 
R1,$XFRSZ 
(SP)+ 


: ASSUME DATA ERROR 
SEE IF ERROR IS A HEADER ERROR (*HCRC*) 
: IF €Q, DATA ERROR 
: SET HEAD 


ER ERROR FLAG 
; Be 8 4 VERIFING THE ENTIRE TRACK OR IF PROCESSING A 


E SE 
; IF ee VERIFYING SINGLE SECTORS 
; PU BAD SECTOR ADDRESS IN ‘S$SEC‘ 
mat IF THE ERROR IS LISTED IN ONE OF THE BAD SECTOR 


F CC, DEFECT IS ALREADY ACCOUNTED FOR 
T CK ERROR COUNT 


ESS 

LOAD R OUNT AND FLAG A BAD SECTOR 
‘HEADER/DATA ERROR DURING VERIFY 

CARRIAGE CONTROL CHARACTER 

: SEND MESSAGE 

: TYPE THE DEVICE REGISTERS 

: SVERIFY CONTINUING’ 

> COPY THE ADDRESS OF THE ERROR SECTOR 

: CALCULATE THE NUMBER OF SECTORS TRANSFERED 
: IF NE, AT LEAST ONE SECTOR TRANSFERED 

: STEP AROUND THE ERROR SECTOR 


CHANGE THE ENDING SECTOR ADDRESS 
POINT TO LAST ERROR FREE SECTOR 
TH ING SECTOR 


THE STACK 
SET THE DATA ERROR INDICATOR 
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MSG4V 
MSGSV 000102R 
SECTBL 000144R 


001524 
ERRORS DETECTED: 0 


4 
E 


VIRTUAL ae USED: 
pan § MEMOR rpae yon 
ED TIME: 


000 
001 


TRK 


we 
SDSTRB= 


ee 900142 GX 


aeannee GX 
eanene GX 
aeanee GX 
teaeee GX 


577 A ws (3 se 
( 30 PAGES) 


RPSED TIRE: 00:00:15 303FMTR8V=C300, 10]FMTREV 


SFLRGS= 


aaanee GX 
earns GX 
aennne GX 
arenes GX 
atanee GX 
eeaane GX 
aeanee GX 
aannne GX 
aaneee GX 
aaaeee GX 





arenee GX 
aeanene GX 
anenen GX 
aneneer GX 
aaenee GX 


000216RG 


aaener GX 
aeanee GX 
aenaee GX 
aennee GX 


SWERL= 
SWFFE= 


sak 
SUPDMX= 
SVERIF= 
SWTBSF 
SWTSSF= 
SXFRSZ= 


SEQ a 


gennen GX 
aeenee GX 
aennee GX 
aeneee GX 
aeenee GX 
aeenee GX 


= eeeeee GX 


aeener GX 
aeener GX 
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-TITLE FMTR8M = DEFECT ENTRY MODULE 
-IDENT /01.00/ 


COPYRIGHT (C) 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS a UNDER A_LICENSE FOR USE ONLY ON A 
SINGLE vag a SYSTEM AND MAY BE 4 ONLY WITH Mg a = 7 


F 
; WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
; THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
; EQUIPMENT CORPORATION. 

DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
VERSION 01.00 


C. HESS 18-AUG-80 


BUIRSWN SO OONAULS WN OUDNAUEWN 


28 " M. LEAVITT  14=JAN=81 
i 
g : MESSAGES 
.NLIST BEX 

000000 125 104 192 MSGIR8: .ASCIZ /UDBSF / 

000007 115 123 102 MSG2R8: .ASCIZ /MSBSF/ 
9 000015 123 12 106 MSG3R8: .ASCIZ /SSF/ 
0 000021 106 105 040 MSG4R8: .ASCIZ /FE BAD SECTORS/ 
1 900640 104 125 120 MSG7RB: .ASCIZ /DUPLICATE ENTRY ~ / 
é 106 111 114 MSGBR8: .ASCIZ /FILE F / 

100 105 116 124 MSGCR8: .ASCIZ /ENTER BAD SECTR ADRS:/ 

4 900126 103 131 114 MSGDRS “ASCIZ /CYL,TRK,SEC = 
5 00014 110 104 101 MSGER "ASCIZ @HDA‘’S/N DOESN'T MATCH CURRENT S/Na@ 
48 : LBN CONSTANTS 
30 000210 000003 151200 FELBN: .WORD - 3,151200 ; BEGINNING, OF THE FE CYLINDERS 
32 000214 000003 151040 USRLBN: .WORD 3,151040 END of SER SPACE 
4 é (558. a santal 
35 : MINIMUM/MAXIMUM STORAGE FOR INPUT ROUTINE 


35 000220 000000 MINCYL: .WORD 0 STORE MIN. CYLINDER ADDRESS HERE 
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MIN ey: WORD 0 


Sas es as 
¢ 226 MAXTRK: .WORD 


-—F-= OO eee eS 


RACK 
; STORE MAX. Ot ADDRESS HERE 


SEQ 0092 
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63 3+ 
64 : %*=$RMBOM-MANUAL INPUT OF UDBSF OR SSF DATA 
66 2 THIS ROUTINE WILL ACCEPT MANUALLY INPUTTED DATA FOR EITHER THE 
67 : UDBSF OR SSF FILES AND RE-WRITE THESE FILES TO THE RM8O DiSK. 
69 : INPUTS: 
oy $ NONE 
7 : OUTPUTS: 
3 ; RE-WRITTEN UDBSF OR SSF 
if ‘ 
77 000230 004767 0000006 SRMBOM::CALL  $SRDSSF : READ SkIP SECTOR FILE 

000234 004767 0000006 CALL § $RDBSF + READ THE MDBSF & UDBSF 
79 000240 012701 MOV #60,R1 : SET 2 LINE FEED CONTROL 

00024 912700 000100" MOV #MSGCRB,RO + GET ADDRESS OF MESSAG 
81 000250 004767 0000006 CALL  $PRNTO : PRINT "ENTER BAD SECTR ADRS:' 
83 000254 004767 000554 1$: CALL _—sINPUT : GET SSF ENTRIES 

0002 901403 BEO 2$ : IF €Q, FINISHED 
85 000262 004767 000024 CALL  $DSTRB : DisTRiBUTE ENTERED ADDRESS INTO CORRECT FILE 

6 000266 000772 BR 1$ t CONTI 

88 000270 004767 2$: CALL  $RBOSF : FORMAT THE BSF/SSF TRACKS 
89 000274 004767 CALL  $WISSF > RE-WRITE THE SSF 
90 000 004767 0000006 CALL  $WTBSF : RE-WRITE THE BSF 
91 000304 105067 0000006 $s + CLEAR THE MODIFY FLAG 
3 000310 000207 RETURN 
94 3+ 
9 ;**-SDSTRB-ROUTINE WILL DISTRIBUTE THE DEFECT ADDRESSES 
97 ? THIS ROUTINE DISTRIBUTES THE OPERATOR ENTERED ADDRESS TO THE CORRECT 
98 t DEFECT FILE AND CHECKS FOR DUPLICATION IN THE SSF. 
100 t INPUTS 
101 : SCYL = OPERATOR ENTERED CYLINDER ADDRESS 
108 : STRK = OPERATOR ENTERED TRACK ADDRESS 
10 : SSEC_= OPERATOR ENTERED oPCTOR A ADDRESS 
104 ; SHDRFG = 1 IF DEFECT IS A HEADER DEFECT 
1 : OUTPUTS 
199 
88 - 
110 000312 105067 0000006 SDSTRB::CLRB © SKPFRE : CLEAR THE SKIP SECTOR FLAG 
u11 000316 004767 0000006 CALL SSRSDF : SEE IF ENTRY IN THE SSF 
118 000 4 012704 15° MOV #MSG3RB,R4 : DUPLICATE ENTRY MESSAGE 
114 004767 10 CALL OD : TYPE THE MESSAGE 
115 0003 0005 g BR 13$ + TRY AGAIN 
116 36 105767 0000006 1$: TSTB = SHDRFG : SEE IF DEFECT IS A HEADER DEFECT 
117 000 001041 BNE 4$ : IF NE, IT IS 
118 00 4 O12 01 000000C MOV #SSSF+<2*$SSFHD>=4,R1 |; SSF ADDRESS 
119 50 012702 000000¢ “OV #SSSF +<1000*$SSFLND-2,R2 : SSF LENGTH 
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1 54 767 0000006 CALL $SRTRK : SEARCH THE SSF 

121 1 30 ¢ BCC : IF CC, TRACK IS IN THE SSF 

: o1 : 000000C cme R1ASSSF +<1000*$SSFLND= : IS SSF FULL? 
124 000370 spa 15° V #MSG3RB,R4G : GET SSF MESSAGE 

125 000374 004767 400 CALL «FULL : ISSUE FILE FULL MESSAGE 

1g 000400 0005 BR 13$ : GET NEXT ENTRY 

128 ; LOAD SSF WITH NEW BAD SECTOR ADDRESS, REVISION DATE, REVISION NUMBER 
129 : AND UPDATED ENTRY NUMBER 

131 000402 016721 2$: MOV SCYL,(R1)+ : PUT CYLINDER ADDRESS INTO SSF 

132 000406 116721 MOVB EC. (R1)¢ t PUT SECTOR ADDRESS INTO SSF 

133 000412 116721 0000006 MOVB  $TRK.(R1)+ : PUT TRACK ADDRESS INTO SSF 

134 000416 016767 0000006 0000066 MOV. DPARS,$SSF#6 : LOAD SSF REVISION DATE IN TABLE 
135 000424 026767 0000006 0000106 CMP EVNM,$SSF+10 : HAS REVISION NUMBER BEEN UPDATED YET ? 
136 0004 100g BNE 3 : BR IF YES 

137 000434 005267 0000106 INC $SSF+10 t UPDATE REVISION NUMBER 

138 000640 005267 3$: INC $SSF+22 : INCREMENT NUMBER OF ENTRIES 

139 000444 000512 BR 13$ : CONTINUE 

141 : SEE IF THE DEFECT CAN GO INTO THE UDBSF OR FEBSF 

128 000446 004767 48: CALL $SRSSF : SEE IF ENTERED SECTOR IS WITHIN A SKIP REGION 
144 000452 103404 BCS 5$ : IF CS, NO 

145 000454 105367 DECB = SSE : DECREMENT THE SECTOR ADDRESS 
146 000460 105267 INCB  ——- SKPFRE t SHOW SECTOR WITHIN A SKIP REGION 
147 000464 012704 5$: MOV HMSG2RB RG t ASSUME DUPLICATE MDBSF ENTRY 

148 000470 004767 CALL § $SRMDF + SEARCH TNE MDBSF 

149 000474 103012 BCC 6$ : IF CC, ENTRY DUPLICATED 

150 000476 012704 MOV #MSG4RB,RG + ASSUME DUPLICATE ENTRY- 

151 000502 004767 CALL  $SRFES : SEE IF ENTRY DUPLICATED IN THE FE AREA 
13¢ 000506 103005 BCC 6$ : IF CC, ENTRY ICATED 

153 000510 012704 MOV #MSGIRB,RG + ASSUME DUPLICATE UDBSF 

154 000514 004767 CALL § $SRUDF t SEARCH THE UDBSF 

155 000520 105406 BCS 7$ : IF CS, ENTRY NOT DUPLICATED 

156 000522 10576 6$: TSTB = SKPFRE : SEE IF IN A SKIP REGION 

157 000526 001051 BNE 12$ : IF NE, YES 

158 0005 004767 CALL buP : REPORT IT 

159 000534 0004 5 BR 13$ : GET ANOTHER ENTRY 

160 000536 00476 7$: CALL — CKUSR + SEE IF ENTRY IF FOR THE USER ADDRESSES 
161 900542 105020 BCC 9$ : IF CC, Y 

16 544 00476 CALL = CHKFE + SEE IF ENTRY IS FOR FE CYLINDERS 
16 900550 103005 BCC as : IF cc, Y 

164 000552 0127 MOV #SMSG32,RO : "INVALID ENTRY® 

165 000556 76 CALL $PRINT t PRINT THE MESSAGE 

166 0005 000445 BR 13$ : 

167 000 0047 8$: CALL  $SRFES : LOCATE WHERE TO PUT THE ENTRY 
168 000570 o1 7 MOV #MSG4RB,RG + FE BSF MESSAGE SUFFIX 

169 000574 020127 CMP R1,MSFEBSF+64. : IF THE FE BSF FULL ? 

170 900600 001013 BNE 11§ : NO 

171 000602 000407 BR 10$ + REPORT FILE FULL 

17 900604 004767 9$: CALL $SRUDF * LOCATE LAST ENTRY IN THE UDBSF 
173 10 9201 CAP R1 ,ASUDBSF +1000-4 a wis UDBSF FULL? 

175 Sp0eT6 012704 MOV #MSGIRB,R4G : UDBSF MESSAGE SUFFIX 

176 000622 004767 10$: CALL FULL t ISSUE FILE FULL MESSAGE 
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000421 BR 13$ : TRY AGAIN 
016721 0000006 11$: MOV SCYL,(R1)+* t PUT CYLINDER ADDRESS INTO UDBSF 
116721 0000006 MOVB $SEC,(R1)+ : PUT SECTOR ADDRESS INTO UDBSF 
0 1167 1 9000006 STRK.(R1)+ t PUT TRACK ADDRESS INTO UDBSF 
4 165767 TSTB KPFRE : SEE IF SECTOR WITHIN A SKIP REGION 
900659 901410 BEQ 13$ : IF EQ, NO 
000652 105767 0000006 12$:  TST6  $HDRFG t WAS ENTRY FOR A HEADER DEFECT ? 
00065 901405 BEQ 13$ ; IF EQ, NO - XT ENTRY 
105067 0000006 CLRB  $HDRFG t CLEAR THE HEADER DEFECT FLAG 
000664 105267 0000006 INCB SEC : INCREMENT SECTOR ADDRESS 
70 000675 BR : CONTINUE 
07 13$ RETURN : 


we=CHKFE-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE FE CYLINDERS 


SSSLESRALLSSESTKALAVALS IAN 
33 
~ 
S 


: INPUTS: 
: SCYL,STRK,$SEC LOADED 
RETURNS: 
; Cs ENTRY IS NOT FOR THE FE CYLINDERS 
; CC ENTRY IS FOR FE CYLINDERS 
01 000674 004767 0000006 CHKFE: CALL $CVTDA : CONVERT THE PHYSICAL ADDRESS TO AN LBN 
202 000700 026767 0000006 177302 CMP $LBNH,FELBN > CHECK HIGH L 
203 000706 10340 BLO 1$ : IF LO, DON'T LOOK ANY MORE 
000710 026767 0000006 177274 MP SLBNL,FELBN+2 : CHECK THE LOW LBN 
306 000716 000207 $ RETURN ; 
0 i+ 
208 t **=CKUSR=SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE USER CYLINDERS 
210 t INPUTS: 
31] : SCYL,$TRK,SSEC LOADED 
$13 + RETURNS 
214 : ENTRY IS NOT FOR THE USER CYLINDERS 
316 : CC ENTRY IS FOR USER CYLINDERS 
1 o 
$18 0007 767 9009006 CKUSR: CALL  SCVTDA : CONVERT THE PHYSICAL ADDRESS TO AN LBN 
219 000726 026767 177264 0000006 CMP USRLBN,SLBNH =; CHECK HIGH L 
20 000732 10340 BLO 1$ : IF LO, DON'T LOOK ANY MORE 
1 000734 026767 177256 0000006 CMP USRLBN+2,S$LBNL ; CHECK THE LOW LBN 
; g 000742 000207 1$: RETURN ; 
24 ;+ 
225 ; **-DUP-DUP ROUTINE WILL ISSUE THE DUPLICATE ENTRY MEESAGE FOR SPECIFIED FILE 


; THIS ROUTINE WILL ISSUE THE DUPLICATE ENTRY MESSAGE FOR THE SPECIFIED FILE 


; INPUTS: 
; R4 = ADDRESS OF SPECIFIED FILE MESSAGE 


; OUTPUTS: 
: NONE 
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5 7° 
7 000744 o12 3 000040° DUP: MOV #MSG7RB,R3 7GET DUPLICATE ENTRY MESSAGE 
000750 012700 0000006 MOV #SBUFRX,RO 2GET ADDRESS OF OUTPUT BUFFER 
9 000754 004767 0000006 CALL  $MOV T MESSAGE IN OUTPUT BUFFER 
40 0007 910408 MOV R4,R :6ET ADDRESS OF SPECIFIED FILE 
41 000762 004767 0000006 CALL $MOVE :PUT THAT IN OUTPUT BUFFER 
4¢ 0007 912700 0000006 MOV #SBUFRX,RO 7GET ADDRESS OF MESSAGE BUFFER 
43 000772 004767 0000006 CALL  $PRINT :PRINT IT 
33 000776 000207 RETURN 3 
46 i+ 
247 t **=FULL=FULL ROUTINE WILL ISSUE THE FILE FULL MESSAGE FOR SPECIFIED FILE 
49 : INPUTS: 
$20 3 R4 = ADDRESS OF FILE NAME MESSAGE 
$26 : OUTPUTS 
25 : 
254 : 
$3 a 
257 001000 012703 000063° FULL: MOV #ASGBRB, R3 3GET FILE FULL MESSAGE 
258 001004 012700 0000006 MOV #SBUFRX.RO [GET ADDRESS OF OUTPUT BUFFER 
259 001010 004767 0000006 CALL sncve :PUT MESSAGE IN OUTPUT BUFFER 
260 001014 019403 MOV R4,R :GET ADDRESS OF FILE NAME MESSAGE 
261 001016 004767 0000006 CALL  $MOVE 3 THAT IN OUTPUT BUFF 
262 001022 012700 0000006 MOV #SBUFRX,RO ZGET ADDRESS OF MESSAGE BUFFER 
263 001026 004767 0000006 CALL  $PRINT :PRINT IT 
364 001032 000207 RETURN : 
266 3 
$7 : &%=JNPUT=INPUT DATA FOR SPECIFIED FILE 
269 : THIS ROUTINE WILL PROMPT THE USER FOR THE DESIRED CYLINDER, TRACK, AND SECTOR 
270 : ADDRESS. 
271 s 
27 : INPUTS: 
soi 3 NONE 
75 : OUTPUTS: 
7 ; SCYL, STRK, AND usec se TO SPECIFIED VALUES 
7 ; SHDRFG = 1 IF THE ENT Y HAD AN FFIX 
78 : 7=1 RE DATA TO INPUT 
279 : IF 2=0 MORE DATA 10 INPUT 
280 3 
81 = 
A 001034 105067 0000006 INPUT: CLRB $HDRFG : CLEAR THE HEADER F 
84 001040 012703 0000006 MOV #SPHYDV,R3 : POINTER TO PHYSICAL ASEVICE GEOMETRY 
B85 001044 004767 0000006 CALL § $UPDMX : UPDATE MAX VALUES 
86 001050 912700 000126' 1$: MOV #MSGDRB,RO : OPERATOR PROMPT 
Be 991886 ig, mnie set SE iat eut Paane USER 
89 tats 000207 RETURN : 
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CALL 
Vv 


Q 
CALL 
CMPB 


LDLMTS 


teat 
R1,$CYL 


$CDTB 
#*, .R2 


R1,MAXTRK 
R1 ,MINTRK 
R1,$TRK 


SCDT 
R1,4351. 


ae 
nek 
SHDRFG 


#SMSG32 RO 
SPRINT 


+ 
; **-LDLMTS-LOAD LIMITS 


; THIS ROUTINE LOADS THE MINIMUM AND MAXIMUM DISK ADDRESS LIMITS 
; USED BY THE ‘INPUT*® SUBROUTINE. 


1$: 
- END 


MINCYL 


MINTRK 
r 60. -MAXCYL 
#13. .MAXTRK 
SSuFF 


#558. 
R1,4558 
#13. .MINTRK 


MINCYL 


INITIALIZE DISK AD 
BUFFER POINTER 

SEE IF OCTAL INPUT 
IF €0 

CONVE 

CHECK 

IF NE, 

LOAD NEW 

LOOK FOR 

If HI, INVALI 

LOOK FOR VALI 


LOAD THE CYLINDER 
CONVERT THE TRACK 
CHECK FOR PROPER S$ 


DRESS LIMITS 


ERROR 
AT THE CYLINDER ADDRESS 
PROPER SEPARATOR 


ADDRESS 


ADDRESS 
EPARATOR 


ERROR 
FOR VALID TRACK ADDRESS 


IF LT, INVALID TRA 
LOAD THE TRACK ADD 


CONVERT THE SECTOR 
L D 

OAD 

HEADER ERROR ADDRE 
IF NE, NO 

SET THE HEADER ERR 
SHOW MORE INPUT 


XIT 

INVALID RESPONSE 
TYPE THE MESSAGE 
CONTINUE 


CK 
RESS 


ADDRESS 


SS ? 
OR FLAG 


ASSUME MIN. CYLINDER= 0. 

1 “TRACK= 0. 
ASSUME, MAX. CYLINDER= 560. 
FORMATTING FE CYLINDERS ONLY ? 


BR IF NO 
MIN, CYLINDER= 558 
IS CYLINDER INPUT 


BR IF 
MIN. TRACK= 13. 


558. ? 


RROR 
TRACK ADDRESS LIMITS 
VALID CYLINDER AD s 


D CY Ss 
F LT, INVALID CYLINDER ADDRESS 
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TABLE 

CHKFE 74R MSGCR 
CKUSR B00920R MSGDR 

DPARS = seeene GX MS 
DUP 744R MSGIR 
FELBN 10R MSG 
FULL 1 MSG 
INPUT 1034R MSG4R 
LOLMTS 1240R MSG7R 
MAXCYL 4R MSG8R 006. 
MAXT 6R SKPFRE= seeee8 GX 
MINCYL OR SRLBN 000214R 
MINTRK aR FRX= seeeee GX 
- ABS. 
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001316 001 
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- TITLE rare = DISPLAY BAD SECTOR FILE CONTENTS 
-IDENT /01.00/ 


COPYRIGHT (C) 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER dd AND MAY BE oes siete WITH ao eee 


AN TH RSON OR ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL at ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

jb ge ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
VERSION 01.00 


C. HESS 9-JUL-80 
M. LEAVITT 22-0CT-80 


Be Se Se Ge Se Se Se Ge Fe Se Ge Ge Ge Se Se Se Ge Se Se Ge Ge Se Ge Se Ge Ge Se 


& LA NMoMoNnofonong ND mk ek ek ed ed ed dd 
SSRNEURUNSSSSVUECREAVS Sane nro CONoMsw 


.NLIST BEX 
123 123 106 MSGIL: .ASCIZ /SSF (SKIPPED SECTOR FILE) CONTENTS/ 
inde 115 104 102 MSG2L: .ASCIZ /MDBSF CONTENTS/ 
000062 125 104 108 MSG3L: .ASCIZ /UDBSF CON ONTENTS/_ 
000101 103 122 105 MSG4L: -ASCIZ @CREATION DATE: 
000121 110 104 101 MSGSL: :ASCIZ @HDA 3/N: @ 
000133 103 131 114 MSG6L: LASCIZ /CYL,TRK,SEC/ 
000147 052 040 111 MSG7L: .ASCIZ /* INVALID DATE */ 
000170 05 040 116 MSG8L: .ASCIZ /* NO ENTRIES * 
41 000207 1 105 126 msGPt : SCIZ /REVISION Wd 
42 000227 1 105 126 MSGIOL: .ASCIZ /REVISION NUMBER: a , 
43 000251 11 104 102 MSGIIL: .ASCIZ /MDBSF 'LOGICAL’ CONTENTS/ 
000 : 125 104 102 MSGI2L: .ASCIZ JUDBSF "LOGICAL’ CONTENTS/ 
45 00033 040 000 PACE: .ASCIZ / / 
47 000335 000 SSFLST: .BYTE 0 : LIST SSF SWITCH 


49 
2 000336 DPARS: .BLKW 10. 3 OUTPUT CONVERSION BUFFER 
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3 3 
36 $ **=$RMBOL=DISPLAY THE CONTENTS OF THE MDBSF, UDBSF, AND SSF 
56 + THIS ROUTINE WILL DISPLAY THE CONTENTS OF THE MDBSF, THE UDBSF 
2 + AND THE SSF FILES. 
59 : INPUTS: 
s : NONE 
6¢ : OUTPUTS: 
« : THE CONTENTS OF THE MDBSF, UDBSF, AND SSF PRINTED ON ‘TI:' 
64 ; "$SWLSi' CLEARED 
66 oO 
44 .ENABL LSB 
69 000362 004767 0000006 SRMBOL::CALL § SRDSSF : READ THE SKIPPED SECTOR PILE (SSF) 
70 000366 004767 0000006 CALL  $RDBSF t READ THE MDBSF AND THE UDBSF 
ie: ; DISPLAY THE SSF CONTENTS 
74 000372 912700 000000° MOV #MSG1L,RO : "SSF (SKIPPED SECTOR FILE) CONTENTS® 
75 000376 012701 000060 MOV #60,R1 t CARRIAGE CONTROL CHARACTER 
76 000402 004767 0000006 CALL ; 
77 000406 012701 0000006 MOV #SSSF R1 + SERIAL NUMBER POINTER 
— 78 000412 004767 000600 CALL  HDASN’ : PRINT THE HDA SERIAL NUMBER 
79 000416 912700 0000006 MOV #SBUFRK RO : BUFFER POINTER 
80 000422 012703 000101 MOV ass L,R3 : "CREATION DATE: 
81 900426 004767 0000006 CALL + LOAD THE BUFFE 
82 0004 912705 0000046 MOV POSSE +4 ,R3 : BATE FIELD POINTER 
8 000456 004767 000240 CALL _—SFDATE : PRINT THE SSF DATE FIELDS 
84 00044 012700 MOV #SBUFRX,RO + BUFFER POINTER 
BS 000446 012703 000207' MOV #MSGOL RS : "REVISION DATE: ° 
86 000452 004767 0000006 CALL  $MOVE : LOAD THE BUFFER 
87 900456 912703 MOV #SSSF +6, R3 : DATE FIELD POINTER 
88 0004 767 000214 CALL  SFDATE : PRINT THE SSF DATE FIELDS 
89 000466 127 V #SBUFRX,RO : BUFFER POINTER 
90 0004 12703 000227' #SG10L.R3 : "REVISION NUMBER: 
91 000476 767 000 CALL VE t LOAD THE BUFFER 
3 000502 016701 0000106 MOV $SSF+10,R1 : REVISION NUMBER 
93 000506 905002 CLR R2 + ENABLE ZERO SUPRESSION 
94 000510 004767 0000006 CALL § $CBDMG : CONVERT 
86 000816 013700 AOV’ ASOUFRX.RO 8 OUTPUT BOINTER 
39 D00s2s BUETEy poDDHoE CALL 
98 000526 012703 900000¢ MOV USSF +<2*$SSFHD> .R3 BEGINNING OF SSF DATA FIELD 
99 000532 112767 177777. 177575 MOVB = #=1,S T SSF LIST FLAG 
100 000540 004767 900270 CALL asrbare : oh IN NT THE SSF FILE CONTENTS 
101 000544 105067 17756 CLRB = SSFLST + RESET THE SSF LIST FLAG 
198 ; DISPLAY THE MDBSF CONTENTS 
105 000550 01 700 000043° MOV #MSG2L RO : "MDBSF CONTENTS’ 
106 000554 10576 0000006 STB $SuLOG : SEE I IF LOGICAL DISPLAY 
108 So0see 01 08 000251" MOV #MSGIIL, RO > CHAN HANGE 1 TO "MDBSF LOGICAL CONTENTS’ 
109 000566 012701 000060 10$: MOV #60,R1 : CARRIAGE CONTROL CHARACTER 





On a |e 
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110 9005 904767 CALL  $PRNTO : 
111 76 012701 MOV #SMDBSF ,R1 + MDBSF S/N POINTER 
11¢ 767 1 CALL - HDASN : TYPE THE SERIAL NUMBER 
11 12 3 1 MOV #SMDBSF+10,R3 =; MDBSF DATA POINTER 
11% 000612 004767 000216 CALL  BSFDAT + DISPLAY THE MDBSF | 
116 : DISPLAY THE UDBSF CONTENTS | 
118 000616 0127 ' Vv #MSG3L,RO : “UDBSF CONTENTS’ 

119 3 105789 Haat TST8 $SuLOG : SEE IF LOGICAL DISPLAY 

121 9006 oi 700 000302" MOV #MSG12L,RO t CHANGE TO “UDBSF LOGICAL CONTENTS’ 

1 g 12701 ites 20$: MOV #60,R1 t CARRIAGE CONTROL CHARACTER 

123 000640 004767 0000006 CALL  $PRNTO ; 

124 000644 012701 MOV #SUDBSF ,R1 + UDBSF S/N POINTER 

125 000650 004767 000 CALL DASN : TYPE THE SERIAL NUMBER 

126 000654 912703 00001 MOV #SUDBSF+10,R3 =; UDBSF DATA POINTER 

127 000660 00476 900130 CALL SFDAT t DISPLAY THE UDBSF 

128 000664 912700 000333" MOV #SPACE RO : BLANK LINE 

129 000670 004767 0000006 CALL $PRINT + PRINT THE LINE 

130 000674 105067 0000006 LRB $SWLST t CLEAR THE "LIST® FLAG 

131 000700 000207 RE TURN ; 

138 .DSABL LSB 

1s 

136 t **=SFDATE=DISPLAY THE SSF DATE FIELD CONTENTS 

138 t THIS ROUTINE PRINTS THE CREATION AND REVISION DATE FIELDS 

139 : FROM THE SSF 

140 ; 

141 : Ss T: 

14e : RO = BUFFER POINTER 

14 ; ; R3 = DATE FIELD POINTER 

145 t OUTPUT: 
146 ; 

147 3 

129 a 

150 000702 011301 SFDATE: MOV (R3),R1 : DATE 

151 000704 042701 177037 BIC #°C740,R1 : LEAVE MONTH CODE 

13¢ 000710 005701 TST R1 : LOOK FOR VALID MONTH 

153 000712 0014 BEQ 10$ : IF EQ, MONTH CODE OF ZERO 

161 000726 02012 000014 CMP R1,#12. t CHECK MONTH UPPER LIMIT 

16e 000732 1 1026 BHI $ : IF HI, MONTH CODE ERROR 

163 000734 010167 177400 MOV R1,DPARS#2 + MOVE MONTH 

164 000740 011301 MOV (R3) : GET THE DATE AGAIN 

165 000742 942701 177760 BIC #°C37,R1 : LEAVE THE DAY CODE 

166 000746 020127 000037 CMP R1,431, : CHECK VALIDITY 

167 00075 101016 BHI 10 : IF HI, INVALID DAY 

168 000754 010167 177362 MOV R1 DPARS +4 : MOVE DAY 

169 000760 116301 000001 MOVB = 1(R3),R1 t GET THE YEAR CODE 

170 000764 201 ASR + RIGHT JUSTIFY 

171 000766 062701 0000006 ADD ABASYR,R1 : ADD THE BASE YEAR 

17 (00772 010167 177340 MOV R1,DPARS : YE 

173 000776 012701 000336' MOV #DPARS ,R1 + INPUT BUFFER POINTER 
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74 001002 Hf 0000006 CALL SDAT 3; CONVERT THE DATE 

75 001 BR 20$ 3 ¢ 

6 101 1 NS 000147" 10$: MOV #MSG7L,R3 3; ‘® INVALID DATE **° 

1014 767 0000006 CALL SMOVE 3 LOAD THE TEXT 

M4 dy 4 1020) 20S: CLRB (RO) 3 ASCIZ TERMINATOR 
001 Bie gooooss MOV #SBUFRX,RO 3; BUFFER POINTER 

80 sid a8 CALL SPRINT ; PRINT THE DATE 

81 0010 000207 RETURN 3 


3¢ 

¢ **=BSFDAT=DISPLAY THE BAD SECTOR FILE CONTENTS 

: THIS ROUTINE PRINTS THE DEFECT ADDRESS ENTRIES IN THE MDBSF 
: INPUT: 

; R3 = START OF THE BAD SECTOR FILE DATA AREA 

; SSFLST = <1 IF THE SSF IS BEING LISTED 


; OUTPUT: 


— od ot ot Ss SS os es SS SS ss SH ss SI SYS So tS SS 


SELETRASLESELSALAT 


| 
NONE 
001034 005713 BSFDAT: TST (R3) : LOOK FOR END OF ENTRIES 
001036 100005 BPL 1 : IF PL, FILE ENTRIES PRESENT 
001040 012700 000170° MOV #MSGBL,RO t ‘ee NO ENTRIES **° 
200 001044 004767 0000006 CALL INT ; 
201 001050 000461 BR 40$ + EXIT 
202 001052 012700 000133" 10$: MOV #MSG6L RO : "CYL, TRK,SEC* 
203 001056 004767 0000006 CALL  $PRINT : 
204 001062 912700 0000006 20$: MOV #SBUFRX RO + OUTPUT BUFFER POINTER 
205 001066 011367 0000006 MOV (R3) ,$CYL t LOAD THE CYLINDER ADDRESS 
206 001072 116367 000003 0000006 MOVB 3(R3) .STRK + LOAD THE TRACK ADD 
207 001100 116367 000002 0000006 MOVB  2(R3).$SEC : LOAD THE SECTOR ADDRESS 
001106 012301 MOV )+-R1 + GET THE CYLINDER ADDRESS 
001110 100441 BMI : IF MI, NO MORE ENTRIES 
10 001112 90500¢ CLR + ENABLE ZERO SUPRESSION 
11 001114 004767 0000006 CALL § $CBDMG + CONVERT 
le 001120 112720 000054 MOVB #*, .(RO)+ + SEPARATOR 
13 001124 116301 000001 MOVB =: 1(R2'$) ,R1 : TRACK ADDRESS 
14 0011 905002 CLR R2 ¢ ENABLE ZERO SUPRESSION 
15 001132 004767 0000006 CALL § $CBDMG + CONVERT 
16 001156 112720 000054 MOVB = #*., (RO) + t SEPARATOR 
1 00114 111301 mova = (R'$5,.R1 + SECTOR ADDRESS 
18 1144 105767 177165 TSTB sséist : LISTING THE SSF CONTENTS ? 
19 001150 001007 BNE 0$ : IF NE, YES 
20 001152 109767 0000006 Ist $SWLOG : PRINT BSF LOGICAL ADDRESSES ? 
22 teres 004767 0000006 CALL $SRSSF + CHECK THE SSF 
23 001164 it esd BCS : IF CS, SECTOR ENTRY PHYSICAL VALUE 
24 001166 00 201 INC R1 t INCREMENT THE SECTOR ADDRESS 
$e BITE S058 ane a Se ea 
$ 1174 boa see 0000006 CALL § $CBDMG : CONVERT 
$ B1e02 S78 ocoo00 Rv? Hibax.no 3 SSA SEPP Bre 
1206 ta} 0000006 CALL SPRINT + PRINT THE ADDRESS 
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SSBB S80 wos: Rw ptm 


3+ 
5 3 **=-HDASN=-DISPLAY THE HDA SERIAL NUMBER 

: THIS ROUTINE CONVERTS THE HDA SERIAL NUMBER FROM THE DEC STD 144 
: FILES OR THE SSF TO ASCII AND PRINTS IT. 

40 3 INPUTS: 

rt ; R1 = SERIAL NUMBER FIELD POINTER 

“§ 3 OUTPUTS: 

by ; NONE 

45 ‘ 

“2 

48 Corgis O12167 1erNg HDASN: MOV (R1)+,DPARS+2 ; EXCHANGE S/N MSB & LSB 

49 001 11167 17711 MOV (R1) ,DPARS : 

50 001 012701 000336' MOV #DPARS ,R1 3 RELOAD THE SERIAL NUMBER POINTER 

51 001 at 703 000121" MOV #MSGSL RS 3 ‘HDA S/N: ° 

26 id 1 my 0000006 MOV #SBUF RXR 3 BUFFER POINTER 

5 1242 004767 0000006 CAL’. Vv 3 LOAD THE BUFFER 

254 001246 00500 CLR 2 3 SUPRESS LEADING ZEROS 

255 001250 004767 0000006 CALL SCDDMG : CONVERT THE SERIAL NUMBER TO ASCII 

256 001254 105010 0) 3 ASCIZ_ TERMINATOR 

257 001256 012700 0000006 Vv #SBUFRX RO ; BUFFER ADDRESS 

258 001262 004767 0000006 LL INT 3 PRINT THE SERIAL NUMBER 

259 001266 000207 RETURN : 
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SYMBOL TABLE 


BASYR = seaeee GX mee 0004 SFDATE 0007 
BSFDAT 1 an 062R SPACE G0335n 
DPARS MSGSL 00101R SCFLST 

HDASN 1216R MSGSL 127R UFRX= eeeene ox 
MSG1 4 4 0001353R SCBDMG= **eea8 GX 
MSG1 000227R MSG7L 44 SE a SCDDMG= **ee"" GX 
MSGTIL 000251R MSG8L 00170R SCYL = *eaene GX 
MSG12L 0003502R MSG9L 000207R SDAT = *eanee GX 
. ABS. 


000 
01270 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 471 WORDS. ( 2 PAGES) 
pea} ae 796 2 WORDS ( 30 PAGES) 


E500; SSOIEMTRAL , (300, 30]FMTRBL=C300, 10JFMTREL 


LLLLLZ 


SEQ 0104 






MFEWN SO OONOAUESWN OVO NAUME WN 


NMONMINONONINY.2 2 


052 


052 


040 
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-NLIST BEX 
MSGIRI: 
-EVEN 


4 
oe 


Be Se Ge Se Ge Ge Ge Ge Se Se Ge Se Ge Se Se Se Ge Se Se Se Fe Se Ge Ge Fete tee & 


FMTINT = INITIALIZE MDBSF, UDBSF, SSF 
/01.00/ 


mo 
ar 
=m 


COPYRIGHT (C) 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ¥ A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 


OF THE ABOVE THIS SO 

COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL _ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 

ITS SOFTWARE ON EQUIPMENT WHICH IS #9T SUPPLIED BY DIGITAL. 

VERSION 01.00 


C. HESS 15-AUG-80 
M. LEAVITT 14-JAN=81 


eASCIZ /** WARNING = BAD SECTOR FILES WILL BE OVERWRITTEN ON / 


SEQ 0105 
TWARE, OR ANY OTHER 
J 


-————— 


-——s, 


D 
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37 3+ 
3 3 **-$RMBOI-INITIALIZE THE RM80'S MDBSF, UDBSF, & SSF TRACKS 
40 : THIS ROUTINE WILL FORMAT THE DEC STD 144 TRACK AND THE SSF TRACK 
41 : AND WRITE NULL 16 BIT DEC STD 144 AND SKIP SECTOR FILES. 
4 : INPUTS 
44 3 E 
45 : 
46 : OUTUTS 
47 $ 
rt re 
50 012703 000000° SRMBOI: :MOV #MSGIRI,R3 : WARNING MESSAGE ADDRESS 

51 000072 004767 0000006 CALL TY : STORE MESSAGE AND DEVICE/UNIT 
52 000076 012703 0000006 MOV #SMSG26,R3 : MESSAGE SUFFIX 

53 000102 004767 0000006 CALL V t LOAD THE SUFFIX INTO THE MESSAGE BUFFER 
54 000106 012700 0001446 MOV #$BUF+100.,RO ; PRINT THE WARNING 

55 000112 012701 000060 MOV #60,R1 : 2 LINE FEED CARRIAGE CONTROL 
56 000116 004767 0000006 CALL T + PRINT WARNING MESSAGE 

57 000122 012700 G MOV #$MSG31,RO : "YES-NO' MESSAGE POINTER 

58 000126 004767 0000006 CALL §$PRMPT : PROMPT AND GET RESPONS 

59 000132 001404 BEG 1$ t IF EQ, RESPONSE 
60 000134 122767 000131 0000006 CMPB es # "YY, SBUF RX t SEE IF RESPONSE WAS "YES* 
61 000142 001402 BEQ $ : IF EQ, RESPONSE WAS "YES* 

62 000144 000167 0000006 1$: JMP SFMTEX 3 EX 
63 000150 012703 000374 2$: MOV #256. -4,R3 t GET NUMBER OF ENTRIES TO RESET 
64 000154 012700 0000006 MOV #SMDBSF RO : GET START OF MDBSF 

65 000769 016720 0000006 MOV SSNAME,(RO)+ = STUFF THE NEW SERIAL NUMBER 
66 000164 016720 0000026 MOV SSNAME+2,(RO)* |: ... 
67 000170 005020 CLR (RO)+ : BLANK WORD 
68 000172 005020 CLR (RO) + + SHOW NOT AN ALIGNMENT DISK 
69 000174 012720 177777 3$: MOV #-1, (RO)+ > EMPTY THE MDBSF 

70 000200 005303 DEC R3 : FINISHED? 

71 000202 001374 BNE 33 : IF NE NO 

72 000204 012700 0000006 MOV #SUDBSF .RO + GET START OF UDBSF 

000210 016720 0000006 MOV SSNAME,(RO)+ |: STUFF THE NEW SERIAL NUMBER 

74 000214 016720 0000026 MOV SSNAME+2,(RO)+ ; 

5 000220 005020 CLR (RO) + ; 

76 000222 005020 CLR (R0)* : SHOW NOT AN ALIGNMENT DISK 

77 000224 912703 000374 MOV #256.-4,R3 + GET NUMBER OF ENTRIES TO RESET 
78 0002 12720 177777 4$: MOV #-1, (ROS+ : EMPTY THE UDBSF 

79 000234 005303 DEC R3 : FINISHED? 
80 000236 001374 BNE 43 : IF NE 
81 000240 012703 000000C MOV #256. *<$SSFLN>,R3 > SSF SIZE 

82 000244 012700 0000006 MOV 3 SSF BUFFER POINTER 

83 000250 012720 177777 5$: MOV #~1, (RO)+ + CLEAR A LOCATI 

84 000254 005303 DEC R3 + COUNT THE LOCATION 

85 000256 001374 BNE 34 : IF NE, NOT FINISHED 

86 0002 016767 0000006 0000006 MOV SSNAME , $SSF + SERIAL ER L 

87 0002 16767 9000026 0000026 MOV SSNAME+2,$SSF+2 ; SERIAL NUMBER MSB 

88 000274 016767 0000046 MOV DPARS,$SSF+4 | : CREATION DATE 

89 000. H 016767 G 0000066 MOV DPARS,$SSF#6 =; REVISION DATE 

90 00031 5067 CLR $SSF+10 : REVISION NUMBER 

91 000314 012767 000001 0000126 MOV #1,$SSF+12 > SSF DATA TYPE INDICATOR (16 BIT) 
99 000336 005067 0000226 CLR $SSF+22 + NUMBER OF SSF ENTRIES 
100 000342 005067 0000246 CLR $SSF +24 > CHECKSUM 





FMTINT = INITIALIZE MDBSF, UDBS MACRO M1113 12-JAN-82 11:05 PAGE 2-4 


SR8O0SF 


CAL 


I 
I 
E 


L 
TE 
TE 


THE “SPECIAL FORMATTER' 
by. 44 STD 144 INFORMATION 


CLEAR THE INITIALIZATION FLAG 





SEQ 0107 


© 8 











000370 
ERRORS DETECTED: 0 


ee MEMORY USED: 489 a ¥ ( 2 PAGES) 
+ a pee yon WORDS ( 30 PAGES) 


ELAPSED TAT TNT. £900. 309FMTINT=C300, 10]FMTINT 


F 9 | 
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SYMBOL TABLE | 
F | 

MSGTRI O00000R SHOVE = eeeeee OX SPRNTOS eaeene GX Seth ns aecees OX SUNTID= seeees GX | 
SBUF = seen GX Sis os4= waeene GX $RM80I 000066RG SSSFLN= seen" GX SWIBSF= seeeee GX 
SBUFRX= eeeeen GX SMSG31= seeee% GX SRBOSF= seeane GX SSWINT= seeea% GX SWISSF= seene8 GX 
SFMTEX= eseenen GX 
- ABS. 000 
001 | 


